:>LQ 0001 



.Ren 6 



5 
4 

^ 

<» 
11 

15 
14 

15 
It 

r 
10 

i«» 

20 
21 
22 
23 
24 
25 
26 
2- 
28 
29 
SO 
SI 
B2 

ss 

54 
55 
5« 
57 
S« 
S9 
40 
41 
42 
43 



PRODUCT COD£ 
PROOliCT NAME 
PR00UC1 DATE 
MAINTAINER: 
AUTHOR: 



lOCNTiriCATION 

AC -T8«3A HC 

COKOBAO EAROn MAIN! . UTILlTf 
APRIL 1984 

LOU END DIAGNOSTICS ENGINEERING 
RUSStlL tOUNG 



THE INfORMATION IN THIS OOCU^ENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT Bt DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSJMES NO 
RESPONSIBILITI TQR ANr ERRORS THAT MAT APPEAR IN THIS DOCUMENT. 



NO RESPONSIBILITY IS ASSUMED fOR THE USE OR 
SOTTUARE ON EQUIPMENT THAT IS NOT SUPPLIED Bl 
MrriLlATED COMPANIES. 



RELIABILITt of 
DIGITAL OR ITS 



COPtRIGHT CC) 1984 8* OIGITAl. HinlPHfNT CORPORATION 

THE rOLLOUiNG ARE TRADEMARKS 0» DIGI'Ai JQUIPMENT CORPORATION: 

MAbSBUS 



DIGI1AL 
DEC 



POP 
DEC'S 



XIBUS 
DEC TAPE 



45 



47 

4«l 

50 
SI 

55 
M 
S9 
M 
57 
M 
5^ 
60 
61 

65 
64 

65 



}THIS PROGRAM IS BASED ON ONE WRITTEN Bt Nf ' TOR HFRNANDE/. 

NOTE: THE flLE 1/0 ALi WORKS CORRECTLY. THOUGH IT Is COMHfNTED OUT f OR 
VERSION 1. ANi LINE BEGINNING WITH **iVER2' SHOUl 0 Bf UNCOMflENTt 0 . 
DOCUr«^NTATION. RWt 



REGISTER USAGE 
RO 
Rl 
R^ 
R^ 
R4 



R5 



TEr#>ORARY, I/O STRING POINTER 

TEMPORARY, USED Bt I/O ROUTINES TO PASS CHARACTERS 
TEMPORARY. USED TO PASS ARGUMENTS BETWEEN FUNCTIONS 
LESS TEMPORARY LOW LEVEL ROUTINES SHOULD NOT USE THIS 
STATUS WORD (IF NEEDED LATER. THIS CAN BE PUT IN MEMQRO 

BITO: CALLED FROM CHAIN FILE 

BITl: SYSTEM HAS NO PRINTER 

BIT2: SET 2K ROM. CLEAR 

BIT 7: DELETE KEY WAS STRUCK 

BIT 15: XOFF HAS BEEN SENT 
OUTPUT DEVICE BUFFER ADDRESS 



6K ROM 



I) 1 



>(Q OOOS 



'4 



.TITLE EAROn BLASTER UIILITV 

t.D'iWl GBL 

.NLIST CNO.TOC.BEX.rC.tO 

i.EMSL ABS.AMA.LC 

.SBTTL UTILITY REVISION HIST0R> 



•8 
'i» 

00 
01 
62 
03 
04 
05 
06 
07 
00 
04 
90 
«l 
92 
95 
94 
95 
96 
97 



REVISION 
0.0 



DATE 
JAN 84 



REVISION MISTORt: 
REVISION 
1.0 



AUTHOR 
NESTOR HERNANDEZ 



CHANGE 



INITIAL RELEASE VERSION. 
REURITTEN ALHOST COMPLETELt Bt 
RUSSELL tOLWG FOR APRIL RELEASE. 



.LIST 10 



F I 

\H Ml r»M n Ml M4CM0 MU'Oi) 10 APR 10:^4 PAGt 6 

.bBTTL PROGRAM DEFINED HACROS 

un 

10/ jJUMP AND RETURN 

10^ .MACRO JRS ADDRESS 

104 JMP ADDRESS 

ICS .ENOM 

uv 

10' t ALIGN ro BYTE 2 or AN 6 WORD BLOCK 

lOB {USED TO kASE ERROR RECOVERY ON INPUT PARAMETERS 

10^ .MACRO ALIGN? 

no .If NE <<. BEGIN>£6> 2 

111 .-.•2 

112 ALIGN2 
115 .ENDC 

114 .ENDM 
115 

lib I TYPE A MESSAOE 

11- .MACRO .TYPMSG ARG 

118 .NARG ARGS 

119 .IF NE ARGS 

120 MOV ARG.RO 

121 -ENDC 

JSR PC.TYPMSG 

12? .ENOM 



SEQ 0004 



fHIMM Bl '♦•.ItB I'TIl 111 MACRO MIPOO 10 APR 84 10:5«» 7 

ptwcnm oLf iHko hacros 

.NLIST ME. MO 

U> .LIST MC 



(MOM Rt4sf|R (.ilIlIM HACRO Ni;>00 10 APR M 10:39 PAGE 6 



INITIALISATION COOf 

ISO 
151 
l$2 
I5S 

1S4 

155 

157 
156 
159 
140 
141 
142 
145 
144 
145 
146 
14 7 
140 
149 
150 
151 
152 
15S 

154 000000 
155 

156 000000 005767 

157 000004 00140S 

155 000006 016706 
159 000012 000410 
160 

161 000014 010667 

162 000020 012757 
165 000026 012757 
164 

165 000054 012704 

166 000040 015746 

167 000044 001004 
166 000046 012604 

169 000050 025716 

170 000054 001540 
171 
17? 
175 

174 000062 015746 

175 000066 042757 
;76 000074 052757 

177 

176 000102 012757 
17H 000110 012757 
160 

161 000116 012705 

162 000122 011546 
195 000124 015715 
184 000150 014546 



SEQ 0006 



00^540 
005552 



005524 

000200 000024 
005570' 000044 

OOOOOl 
000042 



000046 



000056 015746 000054 



177520 

000100 17.520 
000040 177520 

000102 000100 
000002 000102 

000006 

1777 7*» 



.S6TTL INITIALIZATION CODE 



INITIALIZATION ROUTINE 



ROUTINE TO: 

SETUP THE ORVCOM AND OTHER TRAP VECTORS 

SETUP THE DISPLAY £ SOfUARE SWITCH REGISTERS 

SETUP I/O BUFTER 

SIZE SYSTEM MEMORY 

INITIALIZE PROGRAM STACK 

SAVE MONITOR STACK POINTER 

CLEAR THE EAROM IMAGE STORAGE AREA 

DETERMINE EAROM SIZE AND LAST ADDRESS 

SEARCH FOR THE ADDRESS OF UFO HEADER 

SEARCH FOR UFD EXPANSION LIMIT 

PROGRAM SHOULD BE LINKED SO BEGIN FALLS AT ADDRESS 200 SO 200G WILL 
DO A RESTART. MORE IMPORTANTLY. BEGIN ->MUST* FALL ON AN 8 BtTE 
BOUNORV OR THE PROGRAM WILL NOT WORK. REFER TO THE COMMENTS AROUND 
UPDRAM AND THE MACRO ALIGN2. 



BEGIN: 



BEGININIT 



5«: 



7»: 



10»: 
tVER2 



.WORD 


0 






TST 


INISTK 


^REENTRY? 




BEQ 


51 


;N0 PROCEED 




MOV 


INISTK. SP 


sYES RESTORE STACK. SKIP INITIALIZATION 


BR 


7$ 






MOV 


SP, INISTK 


;SET UP fOR A 200G TO RESTART 




MOV 




1 SET UP FOR APT 




MOV 


MPTINF.aMA 


;DUMMt INFORMATION FOR APT 




MOV 


«BIT0.R4 


;REENTER HERE ON tC OR 200G 




MOV 


aM2, CSP) 






BNE 


ICS 






MOV 


CSP)*.R4 


;FIX STACK. CLEAR STATUS 




CMP 


aW6.CSP) 


: 




BEQ 


OUTI 






MOV 


aoM. CSP) 


sSAVE MONITER TRAPS AND USE Mir OUN 


ROUTINE 


MOV 


orRPHAN.9^54 


sCIS THIS NEEDED?) 




MOV 


aoBCSR. (SP) 


; SAVE OLD BCSR VALLtE 




BIC 


MIT6.a«BCSR 


s ENABLE BOOT ROM 




BIS 


MIT5.a4>BCSR 






MOV 


»i02.a«ioo 


s : SET UP LINE TIME CLOCK VECTOR 


AT 100 


MOV 


#?.a#io? 


; : RETURN FROM INTERRUPT 




MOV 


•6.RS 






MOV 


(R5). CSP) 






MOV 


a<^l7/776.CR5) 


lOON' T LOSE CORRECT SPACE 




MOV 


(R5), (SP> 







t 4R0M Itl 4 . 1 f R III II I T > HACRO MIJOO 
INITIAL t/ATION COOS 



165 


000132 


012715 


000152' 




0001S6 


005000 




ia7 


000140 


062700 


020000 


ISS 


000144 


001405 






000146 


005710 




l«0 


OOOISO 


000775 




l^l 


000152 


022626 






000154 


062700 


020000 


193 


000160 


162700 


050000 
00'156 


194 


000164 


010067 


195 








196 


000170 


012715 


000202' 


197 


000174 


005757 


000000 


198 


000200 


00040S 




199 


000202 


022626 




200 


000204 


052704 


000002 


201 


000210 






202 


000220 


004767 


003014 


205 


000224 


012625 




20* 


000226 


012613 




205 


000230 


105411 




206 


000232 


012702 


000410' 


207 


000256 


004767 


000024 


200 


000242 


012657 


177520 


209 


000246 


012657 


000034 


210 


000252 


000207 




211 








212 


000254 






215 


000264 


000766 




214 









HI 
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MOV 


»50I.(R5) 




aR 


RO 




HUU 


ADA/Wk DA 




BEQ 


40$ 




TST 


(RO) 




BR 


201 


SOI: 


CMP 


(SP)».(SP)* 




AGO 


»20000.R0 


40f : 


SUB 


4^30000. RO 




MOV 


RO.MONADR 




MOV 


«0$,(R5) 




TST 


S^RTCSR 




BR 


601 


50$: 


CMP 


(SP)»,(SP)* 




BIS 


WITI.R4 


60$: 


.TYPMSG 


^IHELLO 




JSR 


PC.REAROM 




MOW 






MOV 


(SP)*.(R5) 




BCS 


110$ 




MOV 


0MAINM.R2 




JSR 


PC. MENU 


100$: 


MOV 


(SP)».aoBCSR 




MOV 


(SP)».9<^54 




RTS 


PC 


110$: 


.TYPMSG 


«N0ROM 




BR 


100$ 



sSIZE MEMORr TO «^IND WHERE MONITOR 



iGET HERE THROUGH BUS TIKE OUT Fix STACK 

;EXTRA 20000 ADDED HERE TOO 

{COMPENSATE FOR EXTRA ADD IN EITHER CASE 



sIF HERE. NO PRINTER ON BUS. SO USE CRT 

J : PRINT UTILlTr IDENTIFICATION 
: EAROM DATA INTO SYSTEM MEMORt 
i RESTORE TRAP 4 

;ROM NONEXISTANT. PRINT ERROR AND EXIT 
;LOAD TABLE AND FALL INTO MENU 

; RES TORE OLO BCSR VALUE 

; RES TORE MONITER TRAP HANDLER 



;RETIJRN TO MONITOR 



FAROn BLASTER UlILIlY 
INITIALIZATION CODE 



2 lb 

217 

216 000266 
tn9 000270 

220 000272 

221 OOOSOO 

222 000504 
229 OOOSIO 

224 000512 

225 000514 

226 000516 

227 000520 
220 000522 
229 000524 

250 000526 

251 000552 

252 000554 

255 000556 
254 000540 
255 

256 000542 

257 000546 
250 000552 
259 

240 
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010246 
011605 

012700 012707' 

004767 002140 

012501 

005500 

002407 

005011 

005725 

105711 

001405 

122167 005016 

001572 

005001 

004735 

000755 

012746 000270' 
012700 012414 



;MENU GIVEN A STRUCTURE 



i CHOICE. AND 


PERFORM IT. IT 


HtNU: 


MOV 


R2. (SP) 


Oil Tlu T . 


MOV 


(SP),R5 




.TyPMSG CR5)» 




MOV 


PROMPT. RO 




JSR 


PC.GETCOM 




Mfll/ 












BLT 


20% 




BGT 


ERROR 1 




rsT 


(R5)* 




TSTB 


CRD 




BEQ 


20$ 




CMPB 


(RD^.INSTR 




BNE 


10$ 


201: 


CLR 


Rl 




JSR 


PC.a(R3)» 




BR 


PAINT 


ERROR I: 


MOV 


^AINT. rsP) 


ERROR : 


MOV 


4>ILLC0M,R0 




JRS 


GETCOM 



POINTER IN R2. 
USES RO AND 



SEQ 0008 



Ull I 
R5 



PRINT THE MENU. READ THE 



; RELOAD MENU POINTER 
; PR INT THE MENU 

J GET THE COMMAND 

;R1 NOW HOLDS LEGAL COMMAND POINTERS 
PO IS THE NUMBER OF CHARACTERS 
DEFAULT RETURN 

MORE THAN 1 CHARACTER IS ILLEGAL 
INCREMENT FUNCTION POINTER 
CHECK IF DONE 

; CHECK NEXT POSSIBLE CHOICE 

; SET UP FOR HELP REQUEST 
:D0 FUNCTION 
;REDRAU SCREEN 

SET UP FOR RTS 

ILLEGAL COMMAND PRINT ERROR. REDRAW MENU 
GET <CR> BEFORE PAINTING MENU 



INI T I/AIION COOf 



J45 
^44 

.?4o 

^4' 000S5«> 
246 000956 

250 000560 

251 000364 
252 

255 0005<>t> 
254 00CS76 
255 

256 000402 

257 000406 
256 

259 



000207 

012:02 
000740 



012702 
000727 
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000440' 



000474 



S&Q 0009 



iMtNU ROUriNkS 



LOAD HENIJ STRUCTURE POINTFR IN RP AND GO TO COMMON COOfe 

: UPDATE PERIPHERALS 



JVER2M.U: MQV ffUPDP.R2 

SVER2 JSR PC. MENU 

jPERIPMERAL PROCESSING GOES HERE 

S CONVENIENT RTS FOR JUMPING TO 



REPLOl; 
0UT$: 

M.S: 

MS.H: 

M.H: 



RTS 

MOV 
BR 



PC 

«HAR0M,Ra 

r^NU 



.TYPMSG «$MSG4 
JRS RETCOM 



MOV 
BR 



0MELPM.R2 
MENU 



;CRFATE SYS COM TILE FROM ROM MENU 
i PRINT THE HELP MESSAGF 
{HELP MENU 



tMOn Bl ASrf R (.iTILiri 

INITIALI/ATION COOf 

361 

265 
264 
265 
266 

267 
26B 

26<* 000410 005404' 
270 00041;" 000452 
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S»<NU STRUCTURES: 



2'1 
2^2 

2 '4 



000414 000646' 



27b 000416 

277 000420 

278 000422 

279 000424 

280 000426 
261 0004S0 
262 

26S 0004 32 

264 

265 

286 

287 000440 

288 000442 
269 000444 
290 000464 
291 

292 

293 000474 

294 000476 
295 

296 

297 000500 

296 000512 

299 

300 

SOI 

S02 

SOS 

S04 

SOS 

306 

507 

S08 

309 

310 

311 

3U 000516 
315 000520 

514 000522 

515 000532 

516 
51 



000560 

000560 

000356 

000402' 

000646 

000346' 

123 



104 



004001 
000464 

002762 000666' 
lOS 125 



004562' 
000512' 



002762' 000614 
125 104 



122 



000666 • 
102 



000620 
105 



012553' 
000552' 

002762' 002 76<; 

151 116 



002770' 
000 



UORO 0: AOO«ESS Of ASCII STRING OF MENU 
UORO 1: ADDRESS or LEGAL CHARACTER COMMANDS 
WORD 2: ADDRESS OF DEFAULT FUNCTION 
UORD 3 N: FUNCTION ADDRESSES IN ORDER 
BtTE 3H»i NULL TRAIl ED LEGAL CHARACTORS 



:MAIN MENU 
MAINM: .WORD 
.UORD 



:VER2 
«VER2 
>VER2 



:VER2 
M.CHRS: 



.UORD 

.UORD 

.UORD 

.UORD 

.UORD 

.UORO 

.UORD 

.UORD 

.UORD 

.UORO 

M . CHRS : 

.ASCIZ 

.EVEN 



iMENU ;ASCII STRING FOR MAIN MENU 

M.CHRS {ADDRESS OF LEGAL COMMANDS 

; FUNCTIONS 

M.E jDEFAULT EXIT 

M.F ;CREATE SYS CONFIG FILE FROM ROM 

M.C jCOPY TO ROM FROM SYS CONFIG FILE 

M.U sUPDATE SYS MEMORIES. PERIPHERALS 

M.S ; UPDATE SYS HARDWARE 

M.D ;PRINT SYSTEM DESCRIPTION 

REPLOT J REDISPLAY MENU 

M.H sHELP 

M.E ;EXIT 

ERROR :N0 MATCH 

.ASCIZ /FCUSORHE/ 

/SDRHE/ 



; UPDATE HARDWARE MENU 

HARDM: .WORD SHMENU 

. WORD MS . CHR 

.WORD EXIT. MS. C.MS. U.MS. B.MS. S.MS. H.EXIT.ERRC 

MS. CHR: .ASCIZ /CUBSHR/ 

.EVEN 

HELPM: .WORD tMELP 

.WORD MM. CHR 

; VER2 . WORD EXIT. HMSG I . HMSG2 . HMSG5 . HMSG4 , HMSG5 . HMSG6 . ERROR 

;VER2 MM. CHR: .ASCIZ /FCUSDE/ 

.WORD E X I T . HMSG4 . HMSG5 . MMSGb . F RROR 



.EVEN 

;VER2UPDP: 
;VERa .WORD 
sVER2 .WORD 
;VER2MU.CHR: 
.EVEN 

JVER2SUREMU: 



MM. CHR: .ASCIZ 



/SOE/ 
IMORP 



.WORD 

mu.Chr 

exit. yup. nope, error 

.ASCIZ /MP/ 



;VER2 
|VER2 
;VFR2 

rORN: 



YN: 
.i</FN 



.WORD iSURE 
YN 

NOPE , Y UP . NOPE . ERROR 



.WORD 
.WORD 

iUSES SAME CHARACTERS AS YORN 

s PR INT ON HARD COP? ? 



{UPDATE MEMORY OR PERIPHERALS 



s ARE YOU SURE?' 



.WORD ITYA'-iK 

.WORD YN 

. WORD Y UP . r UP . NOPE . E RROR 

.ASCIZ /YN/ 



1 i 

tMRin Rl4s!fR UTIl n« fiACW m?00 10 APR 84 10:59 PAGE ll 1 

SEQ 0011 

INITIAL I /AT ION COOf 

HB 000556 004526' EMENU: .UORO tEMENU 

519 000540 000554 .WORD RUE 

5J0 00054? 002.'70' 00^776 005170 .UORO NOPE. UPfROH. LEAVE. NOPE. ERROR 

f^l 000554 127 105 i;V RUE: .ASCIZ /UER/ 



1i 
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SEQ 0012 



INITIAL I/AT ION COM 

5i?4 
S25 
52b 
527 
52$ 
324 
SSO 
551 
552 
SS5 
554 
555 
S*t 
557 
55a 
559 
540 
541 
542 



565 
566 000576 
567 
566 

56<> 000600 

570 000604 

571 000610 
5T2 000614 
S7S 000620 

000624 
000650 
000656 
577 000642 
in 000644 

^10 000646 



3 74 

5 76 



000207 



062701 
062701 
062701 
062701 
062701 
062701 

004767 
001575 
00C207 



177525 
177527 
177534 
177412 
177651 
012055 

001602 



FUNCTIONS 



FROH MAIN MENU 



;VER2M.F: 
JVER2 MOV 
:VER2 BR 
:VER2« C: 
; VER2 MOV 

VER2 BR 

VER2 

VER2M.FERR: 
VER2FILC0M: 
VER2 MOV 



VER2 
VER2 
VER2 
VER2 
VER2 



JSR 
BEQ 
JSR 
BCS 



MOV «OUMP. ( 
•WRITE. (SP) 
FILCOM 

MOV «LOAO. ( 

♦READ. iSP") 
FILCOM 

.TYPMSG OBADFIL 

OGETFIL.RO 

PC.GETCOM 

98$ 

PC.CHKFIL 
M.FERR 



SP) sLOAD FILE TO XXDP MEDIUM FROM ROM 



SP) 8 WRITE ROM FROM XXOP MEDIUM 



545 








8VER2 


.TrPMSG 


(SP)» 


544 








SVER2 


.TYPMSG 


♦INSTR 


545 








|VER2 


MOV 


•SUREMU.R2 


546 








:VER2 


JSR 


PC, MENU 


547 








;VER2 


BCS 


99* 


546 








;VER2 


MOV 


(SP).RO 


549 








|VER2 


MOV 


R4.(SP) 


550 








tVER2 


JSR 


PC.(RO) 


551 








iVER2 


MOV 


(SP)».R4 


552 








;VER2 


.TYPMSG 




555 








;VER2 


JSR 


PC.RETCOM 


554 








iVER2 


BR 


100$ 


555 








iVER2 






556 








iVER298»: 


TST (SP). 


557 








sVER299$: 


TST (SP). 


558 








:VER2100«. 


RTS PC 


559 














560 


000560 


012705 


000700' 


M.O: 


MOV 


♦MSTAB.R5 


561 


000564 


012502 




10): 


MOV 


(R5)..R2 


362 


000566 


001403 






BEQ 


100$ 


565 


000570 


004767 


000600 




JSR 


PC.OESCRP 


564 


000574 


000773 






BR 


10* 



•.COMMON Rt AD/WRITE CODE 



J EXIT ON DEFAULT 
jRETURN CS IF FAIL 



'READ" OR 'URITE" 
FILE NAME 

ASK "ARE YOU SURE?" 

NO. FIX STACK FOR RETURN 

RECOVER FUNCTION (DON T POP) 

THE ONLY REALLY IMPORTANT REGISTER 

DO THE READ OR WRITE 

NOW DO THE POP 

LOAD AND DUMP RETJRN STRINGS TO PRINT IN RO 



100$: 



RTS 



PC 



J MAIN MENU HELP FUNCTION 



Ol?702 000S5^ 



HMSGl 
HMSG2 
HMSG3 
HM5G4 
HMSG5 
HMSG6 

10$: 



M.t: 



ADD #$MSG1-$MSG2.R1 

ADD /MMSG2-$MSG3.R1 

ADD <r$MSG3 $MSG4,R1 

ADD <MMSG4 $MSG5.Pl 

ADD ^$MSG5-$MSG6.Rl 

ADO <^$MSG6,Rl 
.TYPMSG Rl 

JSR PC.RETCOM 

BNE 10$ 

RTS PC 



{LOAD Rl WITH ADDRESS OF HELP MESSAGE 
s TO PRINT 



;TtP <RET> TO 
I IF ANt OTHER 



RETURN 
CHAR. TYPED 



TRY AGAIN 



MOV 



<^EMFNU.R2 



(ARUM ni A .riR (.If It III 
INITIAl I/ATION CODE 



561 00065^ 
000656 

363 000660 

364 000664 
365 

S66 000666 
367 000666 
366 000666 
364 000666 
340 00067? 
SOI 000674 
372 

505 000700 



004 767 
10540? 
000167 
000?07 



062705 
01150? 



Ni 
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177410 
002076 



000250 



100*: 

MS.C 
MS.U 
MS.8 
MS.S 



JSR 
BCS 
JMP 
RTS 



ADO 

nov 

JRS 



PC. MENU 
100* 
EXIT 
PC 



; RE TURN TO EXIT PROGRAM 
.•IF R RETURN TO MENU 



<»MSTA8 HARDM 10. R^ 

(R5).R2 

UPORAM 



;BUIL0 OrrSET INTO DESCRIPTOR TABLE 



00074?' 001072 00115? MSTAB: .WORD CPUDT .UBAOT .BOTOT.SUIDT.O 



EAROH BlAsTFR 1»TILIT> MMCPO Ml?00 10 APR 84 10:59 PAGE 15 



SEQ 0014 



INITIAL I/AT ION COOC 



5<»5 
59^ 

000712 

5^ ooon^ 

5^ 000714 

400 000716 

401 0007^ 

402 00072? 
405 

404 000724 

405 000724 

406 000^26 
40' 000750 
406 000752 
40^ 000754 
410 

411 

41*: 

415 
414 
•il5 
416 

4r 

41^ 
419 
420 
421 
4^2 
425 
424 
425 
425 

4c^A 
429 
4 50 
451 
4 52 
451 
4 54 
455 
456 
457 
456 
4 59 
440 
441 
442 
44 5 
444 
445 
44*, 
44 ' 
446 
449 
450 

451 000756 



I INPUT AND OUTPUT HAPPING ROUTINES TOR DISPLAYING AND NOOirYlNT, DATA 



001570* 

001646 

001772 

002002 

002100 



002144 
002212 
002514 
002554 
002^52 



OUTHAP: lOUTPUT MAPPING ROUTINES 
.WORD OTYPO I TYPE 0 - 
.WORD 0TYP2 I Type 2 
.WORD 0TYP4 I TYPE 4 
.WORD 0TYP6 tTYPE 6 
.WORD OTyPIO I Type 10 



BIT INFORMATION. 0 <• N ^- / 
PRINT DECIMAL NUMBER IN R5 
6 BIT OCTAL 
16 BIT OCTAL 

GET TWO AbCII CHARACTERS 



INMAP: 



I INPUT 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



HAPPING ROUTINES 
ITYPO I TYPE 0 BIT INFORHATION, 0 <• 
ITYP2 I Type 2 PRINT DECIHAL NUMBER 
ITYP4 I TYPE 4 6 BIT OCTAL 
IT-P6 iTYPE 6 16 BIT OCTAL 
IT^PIO jPRINT TWO ASCII CHARACTERS 



N 

IN R5 



THESE ARE THE DESCRIPTOR TABLES. THE FORMAT IS AS FOLLOWS: 

IT CONSISTS OF HEADER INFORMATION AND 6 BYTES FIELD DESCRIPTORS. THE 

FIELD DESCRIPTORS DIFFER DEPENDING ON tmE TyPE OF INFORHATION THFy 

ACCESS. BUT THEY HUST BE 8 BYTES LONG. 



BYTE 0: 
BYTE 1: 
WORD 1: 
WORD 2: 

WORD N: 
WORD N»2: 



THESE 



BYTE N*4: 
BYTE N»5: 
Byte N*6: 
Byte N»7: 

BYTE N»4: 
B>TE N*5: 
BYTE N»6: 
BYTE N.7: 

BYTE N«4: 
BYTE N»5: 
BYTE N*^: 
BYTE NW: 

BYTE N»4: 
BYTE H*5: 
BYTE N*6: 
RrTE N*7: 

BYTE N»4: 

BYTE N»5: 

BiTf N.6: 

BtTF N^7: 

Al IGN«^ 



NUMBER OF LINES IN TABLE 
WIDTH OF TABLE HEADER 
ASCI2 TABLE NAME 
HEADER ASCII STRING 

PROMPT FOR INPUT OF FOLLOWING FIELD 
ADDRESS IN UPDATE OF BYTE 
LAST FOUR BYTES VARY DEPENDING ON THE FIELD TyPE 
TYPE 0 BIT FIELDS 

0 (DATA Type OFFSET INTO I/O FUNCTION TABLES) 
MASK THE INTERESTING BITS 

BITS TO SHIFT TO REACH THE HASK 

TYPE 2 DECIMAL INPUT 

2 (DATA TYPE OFFSET INTO I/O FUNCTION TABLES) 

NUMBER OF BYTES TO PRINT 

MAXIMUM VALUE 

LENGTH PER ENTRt 

Type 4 INPUT OCTAL BUE 

4 (DATA TYPE OFFSET INTO I/O FUNCTION TABlFS) 
2 (NUMBER OF BITS TO ROTATE IN TO FIRST DIGIT) 
UNUSED 
UNUSED 

TfPE 6 INPUT OCTAL WORD 

6 (DATA TYPE OFFSET INTO I/O FUNCTION TABLES > 

1 (NUMBER OF BITS TO ROTATE IN TO HR5T DIGIT i 
UNUSED 

UNUSED 

TYPE 10 INPUT ASCII STRING 

10 (DATA TYPF OfTSET INTO I/O ^UNCTION TABLES^ 

MAXIMUM NUIBeR OF CHARS 

UNUSED 

"JNUSfD 

I SET ON RIGHT BOlWRy 
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<»EQ OOlS 

INITI4tI/rtTI0N COM 

4S^ 







4 V • 








t 71 




454 000744 


005077- 








.WORD 


cputit 














uopn 

• rnXJ^XJ 




I TEXT 1 FNT.TH HEADTNT. 


























UOPD 


rpuPo 

W • V» V 




ASH IW>TS^ 












UPDATE #0 






OOO 

VW 


too 

4 W 


OOfi 

Wv 




■ V • * ^ 


0 BTT6 6 


t IGNORE BATTERY ^TATU<; 


4t»0 










EVEN 


















CPUPl 






OOOOOIC 

WVW 4 V 










UPDATE 




4oS 000764 
464 


OOO 

VW 


300 

JW 


OO^ 

Wv 




BYTE 
• EVEN 


O.BIT-'!BIT6.6 


1 POWER UP MODE 


4^S MO 7 70 


006S4 7 








* UORD 


CPUP2 




466 00077P 


OOOOOIG 

WVW 4 VJ 








.UORD 


UPDATE ♦ I 




467 000^^74 

~ V « VW ' ~ 


000 

VW 


060 


004 




]byTE 


0,BIT'^*8IT4.4 


» REBOOT nODE 


4^6 










EVEN 






46^ OCIOOO 
4 70 00100^ 


006645' 

VVW" >J 








.UORD 


CPUP5 




OOOOOIG 

WVW & VJ 








!u0RD 


UPDATF^l 




471 001004 


000 


007 


000 




'byTE 


0,BIT2!BITl!BIT0.0 iWASTER BUS GRAN^ 


4 72 

47S 001010 










EVEN 






006745' 








• WORD 


CPUP4 




4 74 OOlOlP 


OOOOOIC 








* UORO 


UPDATE » 1 




47S 001014 


VW 


O! 0 

V 4 V 


005 

VV J 




By IE 


0 BIT5 5 


shalt/trap option 


476 










Even 






477 OOlOPO 

~ • • W4VCV 


00 7041 








UORD 


CPUP5 




4 7A OOlOPP 


OOOOOOG 








UORD 


UPDATE *0 




4 74 0010P4 


OOO 


OOP 
wc 


OOl 

W 4 




By TE 


O.BITl , I 


ihalt on break 


460 










EVEN 






4A1 OOlOSO 

^ V * W L V ^ V 


0071 57 








UORD 


CPUP6 




4AP OOlOSP 


OOOOOOTi 

V WWWJ 








UORD 


UPDATE^O 




4fiS 0010S4 


OOO 
vvv 


OPO 

VC V 


004 




BYTE 


0.BIT4.4 


;LINE CLOCK STATUS 


484 










EVEN 






4S5 001040 

^ w ^ w A v^ V 










UORD 


CPUP7 




486 00104P 


OOOOOOG 

V WWWJ 








UORD 


UPDATE^O 




487 001044 


000 
wv 


040 

V^ V 


oos 

VV — » 




BYTE 


0. BITS, 5 


;LINE CLOCK INTERRUPT 


468 










[even 






489 OOlOSO 

^ W ^ W4V^V 


007453 

V V f ^ J 








UORD 


CPUP8 




490 0010S2 

^ W4V^C 


OOOOOOG 

VW WW 








UORD 


UPDATE ^0 




491 0010S4 


000 

VW 


Old 


OOP 
wc 




By te 


0.BIT5!BIT?.2 


ILINE CLOCK SOURCE 


492 










EVEN 






493 001060 


007431 • 








UORD 


CPUP9 




494 001062 


00000 3G 

VWW ai^W 








UORD 


UPDATE ♦J 




495 001064 


000 


001 


000 

vvv 




BtTE 


O.BITO.O 


J MA IN MEMCRt TtSr 


496 










EVEN 




497 001070 


oooooo 








UORD 


0 




498 














499 001072 


001 


026 




U6A0T : 


.BYTE 


1.22. 




SOO 001074 


005467- 








.UORD 


UBATir 


tTABlE HEADER 


SOI 001076 


005521- 








.WORD 


«JBADtS 


502 
















50S 001 100 


0061 SO- 








.UORD 


U6AP0 


lUNIBLS CACHE 


504 001102 


000002G 








.UORD 


UPDATE* 2 




505 001104 


OOC 


100 


006 




• BrTF 


0,BIT6,6 




506 










.bVEN 




507 001110 


006211 








.UORD 


UBAPl 


ll8 BIT Moot 


001112 


000002G 








.UORD 


LJPOATf 





t ARilH HI 4slt»l Ulll 111 
INITIALU'UION COM 



^04 00ttl4 

MO 

511 001120 

512 001122 

513 001124 
514 

515 

51t> OOllSO 

5i: 

5ie» 001152 

519 001154 

520 001156 
521 

522 001140 

525 001142 
524 001 144 
525 

526 001150 

527 001152 
520 001154 
529 

550 001160 

551 001162 

552 001164 
555 

554 001170 

555 001172 

556 001174 
557 

556 001200 

559 001202 
540 001204 
541 

542 001210 
545 

544 001212 

545 001214 

546 001216 
547 

540 001220 

549 001222 

550 001224 
551 

552 001250 

555 001252 
554 0012S4 
555 

556 001240 

557 001242 
556 001244 
559 

560 001250 
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006272' 
000004G 


040 

QQ^ 
w& 






Br Tt 
.EVEN 
.yORO 
.WORD 

.EVEN 


0 RITS ^ 

UBAPa 
UPDATE* 4 


000000 








.MORO 


0 


on 

005654' 
005677 


045 




BOTOT: 


.BtTC 
.WORD 
.UORO 


9. .57. 
BOTTIT 
BOTOES 


007527- 
000000 
002 


004 


oil 




.UORO 
.UORO 
.BYTE 


BOTPO 
0 

2.4.11.6 


007601- 
000056G 
010 


002 


000 




.UORO 
.WORD 
.BYTE 


BOTPl 
UPDATE • 36 
10.2.0.0 


007654 
000040G 
004 


002 


000 




.WORD 
.WORD 
.BYTE 


B0TP2 
UPDATE »40 
4.2.0.0 


007727' 
00004 IG 
004 


002 


000 




.WORD 
.UORO 
.BYTE 


BO TP 5 
UPDATE «41 
4.2.0.0 


010002' 
00004 2G 
006 


001 


000 




.UORO 
.UORO 
.BYTE 


B0TP4 
UPDATE *42 
6.1.0.0 


000006 








.WORD 


6 


006 
006016 
006051- 


024 




SUIOT: 


.BYTE 
.WORD 
.UORD 


6,20. 

SUITIT 

SUIDES 


010055- 
000000 
002 


002 


006 




.UORD 
.UORD 
.BYTE 


SWIPO 
0 

2.2,6.5 


007601' 
000124G 
010 


002 


000 




.UORD 
.UORD 
.BYTE 


BOTPl 

UPDATE •124 
10.2,0,0 


007727' 
000I26G 
004 


002 


000 




.WORD 
.UORO 
.BtTE 


B0TP5 
UPDATt .126 
4.2.0.0 


OOOOOS 








.UORD 


5 



SFQ OOM 

lUNIBUS MtnORY TEST 
(END or TABLE 

sOON'T CARE ABOUT ADDRESS TOR T rPE 2 

;DEVICE MNEMONIC 
jMAKE IT 8 BYTES 
; PHYSICAL UNIT a 

J LOGICAL UNIT NUMBER 

jCSR 

(END or TABLE 

J SWITCH NUMBER TO MODI^f 
iNEU DEVICE MNEMONIC 
sLOGICAl UNIT NUMBER 
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INI TIAC I/AT ION CODE 
5W 

564 

565 
566 

56^ 001252 010246 

568 001254 004 767 000114 

569 001260 005067 000106 
570 

571 001264 011602 

572 001266 005742 
575 

5"'4 001270 062702 000010 

575 001274 012200 

576 001276 032700 177740 

577 001302 001426 

578 001304 010246 

57<» 001306 004767 001136 

580 001312 012602 

581 001314 005700 

582 001316 001410 

583 001320 012203 

584 001322 066703 000044 

585 001326 112201 

586 001350 010546 

587 001352 004 771 000724 

588 001556 012605 

569 001540 042702 000007 

590 001544 105351 

591 001546 

592 001556 000746 
595 

594 001560 012602 

595 001562 004767 000006 

596 001566 

597 001572 000000 
598 

599 
600 

601 001574 010546 

602 001576 112205 
605 001400 112200 

604 001402 010046 

605 001404 

606 001412 012701 

607 001416 011600 

608 001420 004767 

609 001424 077005 

610 001426 
t>ll 001454 012701 
612 001440 012767 
615 

614 001446 011600 

615 001450 004767 001204 

616 0014S4 077005 

617 001456 
618 



SEQ 0017 



,MAIN ROUTINES TO DISPLAY AND UPDATE A SET OF DATA 
; UPDATE A SE T OF DATA 

;FRONT OF THE DESCRIPTER TABLE IS PASSED IN R2 



UPDRAh: 



10$: 
20S: 



30$: 



MOV 
JSR 
CLR 

MOV 
TST 

ADD 

MOV 

BIT 

BEG 

MOV 

JSR 

MOV 

TST 

BEG 

MOV 

ADD 

MOVB 

MOV 

JSR 

MOV 

BIC 

BCC 

.TYPMSG 
BR 



100$: MOV 
JSR 
JRS 

WHICH: .UORD 



R2. (SP) 
PC.DESCRP 
WHICH 

(SP).R2 
(R2) 

<^10.R2 
(R2)*.R0 
V177740,R0 
100$ 

R2. (SP> 

PC.GETCOM 

(SP)*.R2 

RO 

30$ 

(R2)»,R5 
WHICH. R3 
(R2)».R1 
R5. CSP) 
PC.aiNMAPCRl) 
CSP)».R5 
07, R2 
10$ 

«ERRIN 
20$ 

(SP)»,R2 

PC.OESCRP 

RETCOM 



J SAVE DESCRIPTOR TABLE POINTER 
, PRINT OUT CURRENT VALUES 
:INIT TO FRONT OF TABLE 

jRESTORE POINTER 

;6 SHOULD BE ADDED THE FIRST TIME 



SUB 2 HERfc 



:NEXT ENTRY. OVERLOOK HEADER THE FIRST TIME 
; OUTPUT PROMPT FOP INPUT 
: CHECK FOR END 
lEGUAL SIGNALS END 

J GET COMMAND 

;TEST FOR DEFAULT 

; SET UP INPUT ADDRESS 
jSET UP IN ITYP2 



;D0 THIS TYPE OF INPUT 

iRESTORE R2 TO PREVIOUS ENTRt 
iGOOD RETURN. GET NEXT 
sBAD INPUT 
:TRY IT AGAIN 

8 PR TNT OUT UPDATED TABLE A^4D RETURN 



;ffRINT OUT A DESCRIPTIVE HEADING 
;bESCRIPTOR POINTER IN R2 



DESCRP: 



000055 
001254 



000055 

000001 177724 



10$: 



MOV 
MOVB 
MOVB 
MOV 

.TYPMSG 

MOV 

MOV 

JSR 

SOB 

. TYPMSG 

MOV 

MOV 



R5. CSP) 
(R2)*.R5 
(R2)».R0 
RO. (SP) 
(R2)» 
<f .Rl 
(SP).RO 
PC.TTy 
R0.10$ 
(R2)» 
0' -.Rl 
«1, WHICH 



20$: 



MOV (SP).RO 
JSR PC.TTY 
SOB R0.20$ 
.TtPMSG «CRLF 



;REPEAT COUNT 

;WIDTH 0^^ HEADER 
I PR INT THE HEADER 



I CLOSING S 
{INITIALIZE WITH 01 



iPROCEbS THE TABLES 
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INITIALISATION CODE 



e>l<» 001466 
f>20 001470 

621 001472 

622 001476 
625 001500 

624 001504 

625 001506 

626 001510 
62" 001512 
629 001516 

629 001522 

630 001524 
651 

652 001526 
655 001556 

654 001540 

655 001544 
656 

657 001546 

658 001550 

659 001552 

640 001556 

641 001562 
w42 001564 
645 001566 
644 



01U246 
005046 
016602 
011605 
052722 
001410 
062205 
112200 
004770 
052702 
005202 
000764 



064216 
005267 
077526 

022626 
012600 
012701 
004767 
077005 
012605 
000207 



000002 
177740 



000712- 
000007 



177626 



000055 
001076 



50$: 
40t: 



lOOf ; 



1101: 



MOV 


R2, (SP) 


CLR 


CSP) 


MOV 


2( SP ) .k2 


MOV 


(SP).R5 


BIT 


<^177740.(R2)» 


6EQ 


1001 


AOO 


C R2 ) ♦ ,R5 


M0V8 


C H2 } ♦ ,KO 


JSR 


PC.aOUTMAP(RO) 


BIS 


07. R2 


INC 




DH 




. T YPnbCj 


wVLKLr 


ADD 


f on \ f CD ^ 


INC 


WHiCM 






CMP 


(SP)^,(SP)* 


MOV 


(SP)».RO 


MOV 


0 .Rl 


JSR 


PC.TTY 


SOB 


RO.IIOS 


MOV 


CSP)»,R5 


RTS 


PC 



SCO 0016 



I SAVE FRONT OF DE SCRIP TER COUNTER FOR REPEATS 
J INCREMENT TABLE POINTER 
J RESTORE DESCRIPTER POINTER 
iSET UP OFFSET INTO TABLE 

J THIS ENTRY IS EITHER EOT OR ASCII PROMPT 
lEOT FINISH AND TRY NEXT 
{POINT INTO TABLE 



;POINT TO NEXT ENTRY 



;OFrSET TO NEXT 

;NEXT IN NUMERIC ORDER 

5 BUMP OFF TEMP STORAGE 
jPRIN' FINAL LINE 
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SEQ 0019 

iNiTiALi/ArioN cooe 



M6 








: SEPARATE ROUTINES TO HANDLE 


THE DIFFERENT FORMS THE DATA IS DISPLAYED 


647 








s AND ENTERED IN 




c46 














649 








: PRINT ROUTINES 






650 














651 








;DATA TYPE 0 


THE OUTPUT WILL BE A SINGLE CHARACTER. 0 <• X 7 


65^ 








:THE ADDRESS OF 


THE DATA IS 


IN R3. R2 POINTS AT BYTE 2 OF THE DATA DESCRIPTOR 


65S 


001570 






OTYPO: .TYPMSG 


<K.BL5 


1 LEADING 4 BLANKS 


654 


001600 


111501 




MOVB 


CR5).Rl 




655 


001602 


042701 


177400 


BIC 


♦177400, Rl 


: CLEAR POSSIBLE SIGN BITS 


656 


001606 


112200 




MOVB 


(R2)*.R0 


.1 HAH MACW DTTC 


657 


001610 


005100 




COM 


RO 




65a 


001612 


040001 




BIC 


RO.Rl 




659 


001614 


112200 




MOVB 


(R2)*.R0 




660 


001616 


005100 




COM 


RO 


;SET UP NEGATIVE FOR RIGHT SHIFT 


661 


001620 


005200 




INC 


RO 




60c 


001622 






ASH 


RO.Rl 


I SHIFT BITS TO RIGHT 


66S 


001624 


062701 


000060 


ADD 


•'O.Rl 




664 


001630 


004767 


001024 


JSR 


PC.TTY 


s PRINT THE NUMBER 


665 


001654 






.TYPMSG 


«BL4 


s TRAILING BLANKS 




001644 


000207 




RTS 


PC 


















668 








s OUTPUT A DECIMAL NUMBER 




669 

670 


001646 


016703 


177520 


0TYP2: MOV 


WHICH, R3 




671 


001652 


012701 


000174 


MOV 


>,Rl 


:HERE IS A GENERAL OUTPUT DECIMAL FUNCTION 


672 


001656 


004767 


000776 


JSR 


PCTTY 




675 


001662 


012701 


000040 


MOV 


,R1 




674 

675 


001666 


004767 


000766 


JSR 


PC.TTY 




676 


001C72 


111200 




MOVB 


(R2).R0 


{NUMBER OF BYTES TO PRINT * 2 


677 


001674 


062700 


001760- 


ADD 


•OECTAB.RO 


(DECIMAL TABLE 


678 


001700 


012746 


000017 


MOV 


♦17, -(SP) 


iNO NONZERO DIGITS PRINTED 


679 














680 


001704 


012701 


000057 


10* : MOV 


♦•0 l.Rl 


SBUILD A DIGIT 


681 


001710 


005201 




20t: INC 


Rl 




682 


001712 


161003 




SUB 


(R0).R3 




685 


001714 


002375 




BGE 


20* 




684 














685 


001716 


031601 




BIT 


(SP),R1 


; SUPPRESS LEADING OS 


686 


001720 


001003 




BNE 


30 » 




687 


001722 


012701 


000040 


MOV 


«' ,Rl 




688 


001726 


000402 




BR 


40< 




689 














690 


001730 


012716 


177777 


30$: MOV 


0 l.(SP) 


lO FILL INSTEAD OF BLANK 


691 


001734 


004767 


000720 


40$: JSR 


PCTTY 


1 PRINT IT 


692 


001740 


061003 




ADD 


(R0).R3 


(RESTORE EXTRA SUBTRACTION 










TST 


(RO) 


sGET NEXT LOUER POUER OF 10 


694 


001744 


001357 




BNE 


10* 


8 IF NOT DONE. DO NEXT DIGIT 


695 














696 


001746 


005726 




TST 


(SP)» 


iLOSE TEMPORARY VARIABLE 


697 


001750 


012701 


000040 


MOV 


.Rl 


1 TRAILING BLANK 


698 


001754 






JRS 


TTt 




699 














700 

01 


001760 


000000 


000001 000012 


DEC TAB: .WORD 


0..1..10..100..1000. 










jOUTPUT 16 BIT 


OC'Al NUMBfR 





t4Ri)f1 HI A '(H UTU It« 
INITIALIZATION CODE 



705 001772 
*04 001774 
:05 001776 
r06 002000 

707 

706 002002 
''09 002004 

710 002006 

711 002010 

712 002012 
715 002014 
714 

715 002016 

716 002022 
'17 002026 
716 002052 

719 002056 

720 002040 
721 

722 002042 
725 002044 

724 002046 

725 002050 

726 002054 

727 002060 
726 002064 
729 

750 002066 

751 002070 

752 002074 
755 

754 

755 002100 

756 002110 

757 002112 
756 002114 
759 002120 

740 002122 

741 002126 

742 002152 
745 
744 
745 
746 
747 
748 
749 
750 
751 
752 
755 
754 
755 
756 
757 
•'SS 
759 



002134 
002140 



005500 
111503 
000505 
000406 

005001 
152501 
000501 
151501 
010103 
000505 

012701 
004767 
012701 
004767 
112201 
010246 

005002 
075201 
010201 
052701 
004767 
012701 
077012 

012602 
012701 



112200 
112501 
022701 
002402 
012701 
004767 
077011 



000174 
000652 
000040 
000622 



000060 
000600 
000005 



000040 



000040 

000040 
000526 



012700 015175' 



APR 84 


10:5«» 


PAGf lb 1 




n T k ojk • 

U 1 I K«t ! 


UCL 


DO 






MOVB 


(R5).R5 


sNUM IN R5 HIGH BrTE 




SUAB 


R5 






BR 


OCTOUT 




0TYP6: 


CLR 


Rl 






BISB 


(R3)*.Rl 








Rl 






BISB 


(R5).R1 






MOV 


R1.R5 






SUAB 


R5 




DC TOUT; 


MOV 


>.R1 






JSR 


PC.TTY 






nuv 








JSR 


PC.TTY 






MOVB 


(R2)*.Rl 


sHOU MANY BITS IN FIRST DIGIT? 




MOV 


R2.-CSP) 


sASHC NEEDS R EVEN. R ODD 


10$: 


CLR 


R2 


iNO STRAY BITS 




ASMC 


R1.R2 


J SHIFT HIGH THREE BITS INTO R2 




MOV 


R2.R1 


;PRINT IT 




RT<; 

D J. 3 








JSR 


PC.TTY 






MOV 


«5.R1 


sSMirT 5 ON SUBSEQUENT ATTEMPTS 




SOB 


RO.tOI 






MOV 


(SP)»,R2 


{RESTORE R2 TO TABLE 




MOV 


•* .Rl 






JRS 


TTY 





SEQ 0020 



;PRINT ASCII 
OTtPlO: .TYPMSG *LBL5 



10$: 



20$: 



MOVB 

MOvB 

CMP 

BLT 

MOV 

JSR 

SOB 

MOV 

JRS 



CR2)*.R0 
CR3)».Rl 
4^' .Rl 
20$ 

0' .Rl 
PC.TTY 
RO.IO$ 

I^L4.R0 
TYPMSG 



iTUO CHARACTERS 



INPUT FUNCTIONS 

THESE FUNCTIONS 00 THE INPUT FOR THE DIFFERENT DATA TYPES. THEY ARE ENTERED 
WITH R5 POINTING TO THE ADDRESS IN UPDATE OF THE LOCATION FOR THE NEW DATA, 
THE INPUT HAS ALREADY BEEN READ IN IN GETCOM, AND RO I<^ LEFT HOLDING THE 
NUMBER OF CHARACTERS IN THE ASCIZ STRING IN INSTR. R2 POINTS TO BYTE 5 OF THE 
8 BYTE FIELD DESCRIPTER. IF THE INPUT IS SUCCESSFUL THE FUNCTIONS SHO'XD 
RETURN C CL'^'^R AND R2 POINTING TO THE NEXT DESCRIPTER. IF THE INPUT IS 
NOT CORRECT Li RETURNS C SET. AND R2 MUST BE POINTING SOMEWHERE IN THE 
CURRENT DESCRIPTER THEY ARE 8 BYTE ALIGNED SO A BIC «7.R2 WILL RESTORE 
THE POINTER SO IT CAN BE REUSED. 

•.INPUT SINGIE DIGIT OCTAl 



t AROM Bl AsTf R UTIl IT^ 



INITIAI I/AT ION CODE 




002144 


112201 


761 


002146 


042701 


762 


002152 


022700 


763 


002156 


105414 


"64 


002160 


111200 


765 002162 


016705 




002166 


001410 


767 


002170 


162705 


766 


002174 


105405 


769 






7 70 


002176 


072500 


771 


002200 


020105 


112 


002202 


105402 


< 73 


002204 


140115 


7 74 


002206 


150515 


775 


002210 


000207 


776 






^ ^ ^ 

i 77 






78 


002212 


012700 


7 79 


002216 


005005 


780 


002220 


005005 


781 






782 


002222 


112001 


"7 A V 

785 


002224 


001415 


784 


002226 


162701 


YAK. 

785 


002252 


105427 


786 


002254 


022701 


78 7 


002240 


105424 


788 


002242 


006505 


789 


002244 


006505 


790 


002246 


060505 


YA 4 

791 


002250 


006505 


792 


002252 


060105 


795 


002254 


010505 


/ 94 


002256 


000761 


795 






796 


002260 


005202 


797 


002262 


122205 


798 


002264 


105412 


799 


002266 


020527 


aoo 


002272 


105407 


601 






802 


002274 


111200 


803 


002276 


160001 


804 


002500 


060001 


805 


002502 


07750^ 


806 


002504 


010167 


807 


002510 


000241 


808 002312 


000207 


809 






810 






811 


002514 


004767 


812 


002520 


105404 


815 


002522 


022705 


814 


002526 


105401 


815 002S50 


110515 


816 


002552 


000207 



MACRO H1200 10 APR 84 


10:59 PAGE 15-2 


IT>P0: 


MOVB 


(R2)».R1 


I 77400 


BIC 


41177400, Rl 


000001 


CMP 


01. RO 




BCS 


100$ 




MOVB 


(R2).R0 


001 lo2 


MOV 


INSTR,R5 




BEQ 


100$ 


000060 


SUB 


0'0,R5 




BCS 


100$ 




ASH 


R0,R5 




CMP 


R1.R5 




BCS 


100$ 




BICB 


R1.(R3) 




BISB 


R5.(R3) 


100 » : 


RTS 


PC 


sGET A 


DECIMAL 


NUMBER AND 


005550' ITYP2: 


MOV 


i>INSTR.RO 




CLR 


R5 




CLR 


R3 


101 : 


MOVB 


(RO)»,Rl 




BEQ 


98$ 


000060 


SUB 


00. Rl 




BCS 


100$ 


000011 


CMP 


Oll.Rl 




BCS 


100$ 




ASL 


RS 




ASL 


R5 




AOO 


R3,R5 




ASL 


R5 




ADD 


R1.R5 




MOV 


R5.R3 




BR 


10$ 


96$ : 


INC 


R2 




CMPB 


(R2)*,R5 




BCS 


100$ 


000001 


CMP 


R5.01 




BCS 


100$ 




MOVB 


(R2),R0 




SUB 


RO.Rl 


99$ : 


ADO 


RO.Rl 




SOB 


R5,99$ 


177062 


MOV 


Rl. WHICH 




CLC 




100$ : 


RTS 


PC 


Tk^lAi IT 

5 INPUT 


AN OCTAL 


BYTE 


000054 I T Y P4 : 


JSR 


PC.OCTIN 




BCS 


100$ 


AAA S 7 7 


CMP 


0377, R5 




BCS 


100$ 




MOVB 


R5.(R3) 


100$: 


RTS 


PC 



SEQ 0021 



J HOLDS BIT MASK 

{CLEAR POSSIBLE SIGN BITS 

; HOLDS SHIFT 

jRETURN GOOD ON DEFAULT (C BIT CLEAR FROM CHP) 



s CHECK FOR LEGALITY 

! CI EAR THE BITS 
;SET THE BITS 



WHICH WITH THE OFFSET FOR THE DESIRED ENTRt 

;LOAD VALUE IN HERE 

;USE FOR »10 MULTIPLICATION 

{EXAMINE NEXT DIGIT 

.•ISOLATE BITS. CHECK FOR RANGE 



{MULTIPLY BY 10. 2X 

;4X 

j5X 

slOX 

{ lOX * Y 



{BUMP PAST BtTES TO PRINT 
{CHECK RANGE 

{NO 0 ALLOWED 



{BUILD THE OFFSET 
{Rl IS 0 



{LOAD IT 

{NEEDED IF INPUT - 1 



{READ THE NUMBER 
{RETURN IF FAlLiJRE 
;T00 I ARGt? 
{YES. RETURN FAILURF 
{LOAD IT IN MEMORY 



EAROH BLAmtfl UTILITY 

INITIALIZATION CODE 

817 

S19 00^334 004 767 

620 002540 105405 

821 002542 110523 

62^ 002544 000505 

623 002546 U0515 

024 002550 000207 
825 
826 

827 002352 121200 

828 002354 103406 

829 002356 012701 

850 002562 112200 

851 002564 112123 

852 002566 001401 

855 002570 077005 
854 002572 000207 
855 

856 002574 005005 

857 002576 012700 

858 002402 112001 

859 002404 001416 

840 002406 162701 

841 002412 105415 

842 002414 022701 
845 002420 105410 
8m4 

845 002422 006505 

846 002424 105406 

847 002426 006505 

848 002450 105404 

849 002452 006505 

850 002454 105402 
651 002456 050105 
852 002440 000760 
855 

854 002442 000207 
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000054 



005550 



005550' 

000060 
000007 



; INPUT 


AN OCTAL 


WORD 


ITYP6: 


JSR 


PC. OCT IN 




BCS 


100$ 




MOVB 


R5.(R3)» 




SWAB 


R5 




MOVB 


R5,(R5) 


100$: 


RTS 


PC 


;ASCII 


CHARACTERS 


ITYPIO: 


CHPB 


(R2),R0 




BCS 


100$ 




MOV 


^INSTR.Rl 




MOVB 


( R2 ) ♦ . RO 


10« : 


MOVB 


CRD* ,(R3) 




BEQ 


100$ 




SOB 


RO, 10$ 


100$: 


RTS 


PC 


OCTIN: 


CLR 


R5 




nuv 




10$ : 


MOVB 


(RO)».Rl 




BEQ 


100$ 




SUB 


0 O.Rl 




BCS 


100$ 




CMP 


07, Rl 




BCS 


100$ 




ASL 


R5 




BCS 


100$ 




ASL 


R5 




BCS 


100$ 




ASL 


R5 




BCS 


100$ 




BIS 


R1.R5 




BR 


10$ 


100$: 


RTS 


PC 



SEO 0022 



;SAVE LOW BtTE 
iSAVE HIGH BTTE 



;SET C BIT ir GREATER 

; INPUT STRING 
;C0Pt THIS MANY 
;C0PY INPUT 
;QUIT ON NULL 



;USE R5 FOR RESULT 
sPOINT TO INPUT STRING 
jGET NEXT CHARACTER 
sir 0, DONE 

;SET C BIT If LESS THAN '0 
{RETURN FAILURE 

{COMPARE WILL SET C BIT ir DIGIT > 7 
{RETURN FAILURE 

;MULTIPLY BY 6 AND ADD IN NEW DIGIT 

5 IF MORE THAN 16 BITS ARE ENTERED. RETURN C SET 



{ADD DikRENT DIGIT 
{DO NEXT 

{DONF. C BIT HOLDS SUCCESS CODE 



(AROM BIA'^TFR UTU ITi flACRO WIJOO 10 APR 84 10:59 PAGE lb 
INITIAL I/ATION COOE 











• 


MAIN TERMINAL I/O ROUTINES 


657 








;PUT A 


COMMAND 


STRING INTO INBUF, RETURN C SET ir NO CHARACTERS ENTERED 










;USE5 RO, Rl. R2 




660 








; RE TURNS NUMBER 


OF CHARACTERS ENTERED, NOT INCLUDING TRAILING NULL. IN RO 


661 








;CANO Z 


SET IF 


NO CHARS ARE 


ENTERED) 


662 


002444 


012700 


012442' 


RETCOM: 


MOV 


ME TMSG.ro 


; FREQUENTLY USED MESSAGE 


665 


002450 






GETCOM: 


. TtPMSG 




J OUTPUT A MESSAGE 


664 


002454 


012702 


000020 




MOV 


020 . R2 


;BJJFFER LENGTH 


665 


002460 


012700 


005550' 




MOV 


MTh.lf^ TO 0/\ 

OINSTR.RO 




666 


002464 


005010 






CLR 


f Or\ > 

CRO) 


5 MAKE SURE WHOLE FIRST WORD I*j NULL 


667 


002466 


105010 




4 A * 

10$ : 


CLRB 


A OA ^ 

CRO ) 


& 11 U 1 TOATi fO 

(NULL TRAILER 


669 


0024 70 


A/Nii 7^ 7 

004 767 


AAA OAA 

000200 




JSR 


PC • XCHK 


jGET CHAR IN Rl. HANDLE XON/XOFF , tC 


669 


7ii 

0024 74 


AAC 7A4 

005 701 






T r* T 

TST 


O 4 

Rl 


870 


0024 76 


002775 






BLT 


4 A # 

10$ 




671 
















672 


002500 


« ^A1 ^^7 

120127 


AAAl 7 7 

OOOl 7 7 




lmpb 


R 1 • WcL 


; IS LHMRMCTtR A DcLcTt? 


675 


002^04 


A A • A 4 ^ 

001016 






dNc 


20$ 


TC klA T DO A^C C A 

5 Ir NOT. HROLccD 


674 


00.. 306 


A*^*^ 7AA 

022700 


AAS VA A i 

005550' 




CMP 


AT^lf^TA OA 

wINSTR ,R0 


Ak.iw AO A^ TC Of* Tki Ot tCCCf%'% 

; ANY CHARAL TtRS IN BUr r tR? 


675 


002512 


AA1 7£C 

001765 






DC r% 
DCQ 


4 A * 
10$ 


J NO, GET THt NEXT CHAR 


676 


002514 


105704 






T C TO 

TSTB 


Ail 

R4 


T c t»-jtc* Ti^c c" Tor* t act I C TC 

;IS THIS THE FIRST DELETE? 


Off 


002516 


« AAA A^ 

100402 






BMI 


4 C * 

15$ 


kiO r\Okl< T OOTfc.lT d A f 

jNQ, DON T PRINT SLASH 


678 


AA^C ^A 

002520 


AAil 7i 7 

004767 


AAA 4 SA 
000150 




JSR 


PC • SLASH 




879 


AA'^A^il 

002524 


« « il AA « 

114001 




4 e « 

15i : 


MOVB 


CRO) ,R1 


OCCAljO OC I CTCO ^t^AOA/^TFO n/^TfciTPO 

; REECHO DELETED CHARACTER. DEC POINTER 


AAA 

880 


AA^A 

002526 


AAil 7^ 7 

004 767 


AAA 4 

000126 




JSR 


PC. TTY 




A A 1 

881 


002552 


AC ^ 7 Ail 

052704 


AAA A A 

000200 




BIS 


WIT7.R4 


jMARK DELETE STATE 


AA'^ 

882 


002556 


005202 






INC 


R2 


sFIX BUFFER LENGTH POINTER 


AA S 

865 


AA«^C A A 

002540 


000752 






BR 


10$ 




A A^ 

884 
















AACl 

88^ 


002542 


105704 




20$: 


TSTB 


R4 


sWAS PREVIOUS CHAR A DELETE? 


666 


002544 


100006 






BPL 


50$ 


; IF NO, BRANCH 


667 


002546 


042704 


000200 




BIC 


WIT7 ,R4 


; S IGNAL F I N I SHED 


AAA 


002552 


A 4 A 4 il ^ 

010146 






MOV 


Rl. -CSP) 


5 END OF DELETE 


AAA 

689 


002554 


004 767 


000074 




JSR 


PC . SLASH 




690 


002560 


012601 






MOV 


CSP) ♦ .Rl 




091 


002562 


« ^ A 4^7 

120127 


000101 


50$ : 


CMPB 


Rl . A 




892 


002566 


AA^il A*% 

002402 






BLT 


40$ 




695 


002570 


042701 


000040 




BIC 


MIT5.RI 


jFORCE CAPITALIZATION 


II OA 


AAOC7A 
UOcD f ■1 


AAA 7^ 7 

004 767 


AAAAf A 

000060 


40$ : 


JSR 


BA T T 

PC.Tir 


;ECHO CHARACTER 


09D 
09t) 


AA^^AA 

002600 


4 '^A 4 7 

120127 


000012 




CMPB 


Rl.OL 


;l INE FEED IGNORE 


A07 

f 


AA^X^AA 

002604 


AA « 7 V A 

001750 






6EQ 


10$ 


696 


















002606 


A OA * 7 

020127 


000015 






A i • 


j ^AAAXAUk A& 1 vAni 


9vU 


AAO<. 1 9 

002612 


AA« AAA 

001405 






6EQ 


99$ 




901 


















AA^^ 1 A 
UUcOl# 


1 1 A1 'lA 

110120 






MOVB 


Rl.CRO)* 


5 STORE CHARACTER 




AA 3^ 1 ^ 

002616 


A7 7'iCC 

O 7 7255 






SOB 


R2.10$ 


J OTHERWISE. GET NEXT 


904 


00P6P0 


01P700 






MOV 


otoolng.ro 


905 


002624 


000711 






BR 


GETCOM 




906 
















907 


002626 


162700 


005550- 


99$: 


SUB 


OINSTR.RO 


; RE TURN NUMBER OF CHARACTERS 


906 


0026 S2 


000207 






RTS 


PC 


909 
















910 








J PUT A 


MESSAGE 


IN RO OUT TO 


TERMINAL.. USEb RO AND Rl 


911 


002f>54 


004767 


000054 


TtPMSG: 


JSR 


PC . XCHK 




91? 


002640 


112001 






MOVB 


CR0)».R1 





I 

EMUN fUMsltR MTU IT* MACRO Ml^OO 10 APR 84 10:3<) PAGE lt> 1 
INITIALIZATION CODE 

915 002642 001403 BEQ 10» 

<»l4 002644 004767 000010 JSR PC.TTt 

<*15 002650 000771 BR TYPMSG 

»»16 002652 000207 10$: RTS PC 



? 

SEQ OO^r-^ 



IMOn Bl4SlfR Ulll ITi MACRO Hl^OO 10 APR 04 10:S9 PAGE 1/ 

%EQ 00^ 

INITIALISATION COOE 



^lo 








2 SUPPORT I/O FUNCTIONS 


























5 OUTPUT A SLASH 


• IT IS UP TO 


1 flC L>HL.L.Cn 1 U 3H VC N x 






IIP 70 1 


0000^7 


SLASH: MOVB 


^' /.Rl 


*QPT IIP rno AKin rm i TiaTo ttv daiitti^ 

• DC 1 yJr r HHiu r HLL xl>l 1 U i 1 T KUVJ 1 l^lc 
























; OUTPUT THE SINGLE CHARACTER 


TKI Q1 






1 O^ 737 


1 77Si^ 


TTV. TQTP 


OHfUU 1 3 1 n 








1 0037^ 






TT Y 

1 1 1 








1 1 OI 37 


1 77^ftf* 
L f f 


HOUR 


Hit OnrUW 1 DUr 








000P07 




DTQ 






































OI P701 


1 mil 






• MO rHARAPTPQ 




OOP 700 


1 OS737 


1 77Srf*0 


TSTB 


9<MNSTA ;HAS 


ANY THTKin ISJFU POMP TlSJ'> 




OOP704 


1 OOOP3 




BPL 


99$ 




^ J J 




1 1 3701 


1 77Sf»P 

X * r 


nu VD 


QrvxniD^' t~x 


• CPT KlPU PHARAPTPR 




OOP71P 


ICS/ IC ' 


0000P3 


PMPR 


Pi Avnrr 

n X • VAU» • 






OOP71#> 


001003 




BNE 


10$ 






OOP7PO 


OSP704 


1 00000 


BIS 


<«IT15.R4 




957 


002724 


000763 




BR 


XCHK 


iGET NEXT CHAR 


936 


002726 


120127 


000021 


10 i: CMPB 


Rl.^^XON 




939 


OOP73P 


001003 




BNE 


20$ 




940 


OOP 7 34 


04P704 


1 00000 

X wVVW 


BIC 


<^BIT15,R4 


• PI PAR xnrr rtt 

Su^cnrt Au> ' Dx 1 


941 


002740 


000755 




BR 


XCHK 




942 














943 


002742 


120127 


000003 


20$: CMPB 


R1.<^CTC 


; CHECK FOR CONTROL C 


944 


002746 


001002 




BNE 


99$ 




945 
946 


002750 


000167 


000200 


JMP 


200 




947 


002754 


005704 




99$: TST 


R4 


; CHECK FOR CURRENT XOFF 


946 


002756 


100746 




BMI 


XCHK 


;YES IGNORE THIS CHARACTER AND GET NEXT 


949 


002760 


000207 




RTS 


PC 





N2 



EAROM BI rt'.TFR UHLlTi HACRO m^OO 10 APR 84 10:39 PAGE 18 



IN'TIALI/ATION CODE 



SEQ <A • 



951 
95^ 
955 
954 
955 
956 
957 
958 
959 
960 
961 
962 
9t>5 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
999 
999 
1000 
1001 
100*' 
1005 
1004 
lOOS 
100€ 
100' 



002762 
002762 
002764 
002766 

002770 
002772 
002774 



022626 
000241 
000207 

022626 
000261 

OOOr'07 



OTHER UTILITIES 



EXIT: 
YUP: 



NOPE: 



lEXIT IS THE SAME THING AS POSITIVE COMPLETION 
CMP (SP)».(SP)» tRETURN YES FROM MENU 

CLC 

RTS PC 



CMP 
SEC 
RTS 



(SP)»,(SP)» 
PC 



: RE TURN NO FROM MENU 



tMAKE SURE THE FILE ENTERED IS CORRECT 

FILE MUST BE ENTERED IN THE FORM DDN:ABCDEF.GHI. WHERE DON: IS THE 
DEVICE NAME OF A SUPPORTED DEVICE. ABCDEF IS A STRING OF 6 OR FEWER 
ALPHANUMERIC CHARACTERS. AND .GHI IS AN OPTIONAL FILE TiPE. IF .GMI 
IS OMITTED IT WILL DEFAULT TO .SCF 

FILE NAME IS ALREADY IN INSTR. RETURNS C CLEAR IF GOOD. S^" IF NO GOOD 
USES REGISTERS RO. Ri.. R2. R3 



VER2CHKFIL : 
VER2 JSR 
VER2 BCS 
VER2 

VER2 MOV 
VER2 MOV 
VER2 MOV 
VER2 JSR 
VER2 TSTB 
VER2 BNE 
VER2 MOV 
VER2 BR 
VER2 
VER230$ : 
VER2 BNE 
VER240$: 
VER2 JSR 
VER2 CLRB 
VER2 TSTB 
VER2 BEG 
VER299$ : 
VER2100i : 



MOV «INSTR.RO (INPUT STRING 

PC.SETDDB (RETURN R5 POINTING TO GOOD DOB 

100$ 



«DDB»XXNAM.R2 

R0.R3 

46. Rl 

PC.FILl 

(RO) 

30$ 

4SCF.ro 
40< 



CMPB 

99$ 

MOV 

PC.FIL2 

CR3) 

(RO) 

100 » 

SEC 

RTS 



(R0).» 
44. Rl 



PC 



COPY FILE NAME INTO DOB 

FORMAT FOR OUTPUT TOO 

MAXIMUM OF 6 CHARACTERS IN NAME 



;IF NO EXTENSION. DEFAULT TO .SCF 



SLAST CHAR MUST BF NULL OR . 
:N0> FAIL. 

(MAX OF 4 CHARS IN EXTENSION 
(FIRST CHAR ALREADY CHECKED 
(NULL TRAIL JUST TO BE SAFE 
(FINAL CHAR MUST BE NULL 



THIS IS CALLED TO CHECK THE FILE NAME. IT TAKES IN Rl AND RO A POINTER TO THE 
FILE NAME. IN Rl THE LENGTH OF THE CURRENT FIELD. AND IN R2 THE LOCATION TO 
COPY THE FILE NAME TO. IT BLANK FILLS (R2) TO THE LENGTH OF Rl FROM THE 
FIRST NON ALPHAN'JMERIC CHAR IN (RO). AND FORMATS INSTR CORRECTLY FOR 
OUTPUT 



VER2.ENABL 
VER2FIL1: 
VER2 BGT 
VER2 CMPB 
VER2 BGE 
VER2 

VER? CMPB 
VER2 BGT 
VER2 CMPB 



LSB 
CMPB 
100$ 
(R0).4- 
f IL2 

(R0).4' 

100$ 

(R0).« 



(RO).*'Z 



(THIS MUST BE ILLEGAL CHAR, JUST RETcWN 
(IF B. MUST BE ALPHABETIC 



tIF NOT A LETTER MUST 
{MUST BE ILLEGAL 



BE A N«.»«ER 



f AROH Bl 4sriR i*rii If* 

INITI4LI/4TT0N COOi 

100^ 

1010 
1011 
lOlJ 
1015 
1014 
1015 
101^ 

icr 
loia 

101^ 

lOJO 
UVl 



10 J s 
io*:4 

102!> 

lost 

102» 
1029 
lOSO 
1031 

losr 

1053 
1054 

1055 

1056 

1057 

1058 

1059 

1040 

1041 

1042 

1045 

1044 

1045 

1046 

104 

1048 

1049 

1050 

1051 

1052 

1055 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 

1062 

106? 

10'.4 
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0027 76 

002 7 76 004 767 000206 

00^002 005001 

00W04 01^702 OOOOOOC* 



VtR2 BL T 
V£R2riL2: 
VER2 HOVB 

VER2 see 

VER2 BR 

VER2 

VER220$: 

VER2 SOB 

VER2100I: 

VER2.0SABL 



201 iHIGHT B£ NUL OR . .SO BtAHK PAD (R?) 

nOvB (R0).(R2)* lALPHAMUhERIC COPr 

(R0)^.''R5). iCQPT IT INTO INSTR TOO 

Rl.riLl iNEXT CHAR 

100$ |D0»€ 



MOVB 

R1.20I 

RTS 

LSB 



•(R2)» 

PC 



|FIU MITH Bi ANKS 



R2 CONTAINS 2 LETTER DEVICE NAME. RETURN DEVICE DD6 SI* T I IP f OR DEVICE. AND 
R5 POINTING TO IT. RO POINTING TO TRONT Qf FILE NAME 



VER2SET0DB: 
VER2 MOV 
VER210i: 
VER2 BEQ 
VER2 CMP 
VER2 BLT 
VER2 BR 
VER2 
VER220I: 
VER2 SUB 
VER2 BLT 
VER2 CMP 
VER2 BGT 
VER2 CMPB 
VER2 BNE 
VER2 

VER2 MOV 
VER2 MOV 
VER2 MOV 
VER2 MOV 
VER250$: 
VER2 SOB 
VER2 MOV 
VER2 MOVB 
VER2 BR 
VER2 
VER299I : 
VER2100I: 
VER2 
VER2DEV: 
VER2 .WORD 
VER2 .ASCII 
VER2 .WORD 
VER2 .ASCII 
VER2 .WORD 
VER2 . WORD 
VER2SC^ : 
VER2 .EVEN 



tURITd (^AROM 
WRTROM: 

JSR 
CLR 
MOV 



MOV (R0)*,R2 
MEV.Rl iLOAD POSSIBLE DEVICES 

CMP (R1)*.R2 I DO WORD COMPARE r OR 2 LETTER DEVICE 

201 J MATCH 

(RD^.CRl) iDONE? 

101 iNO TRr NEXT DEVICE 

99$ 



MOVB 
0*0. R2 
99$ 
R2.07 
99$ 

CRO)».0 
99$ 



(R0)».R2 t CHECK UNIT NUMBER AND COLON 

sLEAVE BINARY UNIT NUMBER IN R2 



sGOOD DEVICE. BUILD DOB 



0DDB»XBur.R5 
#BtF.CR5)» 

OXXNAM-XBLT 2.R5|L0AD BcrrER SEPERATEL t 
(Rl).Rl iLOAD THE DOB FRONT POINTER 

MOVB (Rl)».(R5). 
R5.30$ 



0DD6.R5 

R2.XDN(R5) 

100$ 



tiOAD DRIVE NLt«fR 



SEC 
RTS 



PC 



.ASCII /DO/ 
DYDDB*XBUF*2 

/0>/ 

0t0D6*XBU$ '2 
/DX/ 

DTDDB*XBUr»2 
0 

.ASCI7 /.SC^/ 



PC.BLDCHi< 
Rl 



iDtDDB (SKIP THE BU^^ER) 

iDtDDB 

tDiDDB 



IBUIIO. LOAD CHECKSUM 
tPAGE 



I Hi •»-.!»« in 11 in 

INI T 141 U'ATION CODE 

1065 005010 05^757 

10t« 005016 052704 

106" 005022 001425 
1060 

106<) 005024 012700 

10 '0 005050 110157 

1071 005054 121210 

1072 005056 001405 
1075 005040 111210 

1074 005042 004 767 

1075 005046 005202 

1076 005050 005720 
10 '7 005052 050027 
1076 005056 001566 
1079 005060 005721 
lOaO 005062 020127 

1061 005066 001556 

1062 005070 000457 
1065 

1064 005072 005005 

1065 005074 110157 

1066 005100 012700 

1067 005104 122220 
1066 005106 001401 
1069 005110 005205 

1090 005112 105720 

1091 005114 052700 

1092 005120 001571 
1095 005122 005705 

1094 005124 001412 

1095 005126 012705 

1096 005152 162700 

1097 005156 160502 
1096 005140 112022 

1099 005142 105720 

1100 005144 077505 

1101 005146 004767 
1102 

1105 005152 050027 

1104 005156 001552 

1105 005160 005721 

1106 005162 020127 

1107 005166 001542 
1106 

1109 005170 000167 

1110 

1111 

1112 005174 010046 

11 IS 005176 012700 

1114 005202 077001 

1115 005204 012600 

1116 005206 000207 
1117 

1116 005210 012700 

1119 005214 005002 

1120 005216 012705 

1121 005222 112001 









AAOA^ I '7SPA 




D 4 i9 






BIT 












HOV 
























HOVB 






JSP 




lot - 

JW • • 










WW 1*9 




BIT 






BNE 






1ST 


WVWC V 




CMP 






BNE 






BR 




EIGHTH 


• clr 




lOt • 

*w» • 


' •www 






HOV 






CHPB 






BEQ 






4riW 




50$: 


TSTB 


www J ' 




BIT 

w & ■ 






BNF 






TST 








WWWt V 




HOV 

• 'WW 


000040 
wwwv^ W 




SUB 






SUB 




40$: 


HOVB 






T^TB 

1 J 1 w 






SOB 


wwwwcc 




JSR 


000777 


50$: 


BIT 






BNE 






TST 


OOOlOO 




CHP 






BNE 


1 7 7S#b6 


LEAVE • 


JMP 






ABOUT 




DELAY : 


HOV 


027540 




HOV 






SOB 






MOV 






RTS 


OOOOOOG 


BLDCHK 


: HOV 






CLR 


000150 




HOV 




10$: 


HOVB 



t 

PAGf l« 



«IT4.0«CSR 

WIT2,R4 

EIGHTK 

^11 6S000.ro 
Rl.SOPCRLO 
(R2).(R0) 
50$ 

(P2).(R0) 
PC.OELAI 

R2 

(R0)» 
R0.i>77; 
20$ 
(«!)• 

Rl,^<PAGES*2>/4 

10$ 

LEAVE 

RS 

Rl.S^CRLO 

♦165000. MO 

(R2)*.(R0>» 

50$ 

R5 

(R0)» 

♦57.RO 

20$ 

R5 

50$ 

«20.R5 
MO.RO 
R5.R2 

(R0)..(R2)* 
(RO)^ 
R5,40$ 
PC .DELAY 

RO,0777 

20$ 

(Rl)» 

Rl.^AGE^*c> 
10$ 

n*p 

10 HS 

RO. (SP) 
•12000. ,R0 
RO,. 

(SP)»,RO 
PC 

WPDATE.RO 
R2 

0104., R^ 

(R0)».RI 



I WRITE ENABLE 

I SIZE Of ROH 

iir SET. ROH IS 2K 

sEIRST ADDRESS OT ROH 



I COPY 



jPOH IS 8X8K HIGH Byte IS NONE )^ 1ST ANT 

i check for eno of page 
sRead next Byte 

{NEXT PAGE (INC Bv 2) 

lONLt 00 2K 

I COPY NEXT PAGE 



I ANY CHANGES YET? 

I SET ROH PAGE 

J FIRST ADDRESS OF ROH 



I CHANGES 

|ROH IS 6X6K HIGH BiTE IS NONEXISTANT 
sURITE 20 BYTE BLOCKS 

J FINISHED COHPARING A BLOCK CHANGES? 
;N0, GO 00 NEXT 

I YES RESET ROH AND RAH POINTERS 



jCOPi QUICKLY 



iWAIT FOR WRITE TO FINISH 

iREACHEO ENO OF PAGE 
iREAD NEXT BtTE 
iNEXT PAGE (INC Bi 2) 

I COPY NEXT PAGE 

lEXlT WITH CC 



iBUllO THE CHECKSLW 
iNUHBFR OF BvTES TO USE 



^ AdOn Hi 4 TIN VMl lit MACRO HU^OO 10 APR M lO-.^'i 



INITIAL I/AriON CODE 



1122 
\12S 
1124 
1125 
1126 
112' 
1126 
112^ 
USO 
llSl 
1152 
115S 
1154 
1155 
1156 
1157 
1156 
115<> 
1140 
1141 
1142 
1145 
1144 
1145 
1146 
1147 
1146 
1149 
1150 
1151 
1152 
1155 



005224 
0OS226 
005250 
005252 
005256 



005240 
005240 
005246 
005252 
005254 
005260 
005264 
005270 
005272 
005274 
005500 
005502 
005504 
005510 

005512 
005516 
005522 
005526 
005550 
005552 
005554 
005540 
005542 



060102 
077505 
005402 
110267 
000207 



012757 
012702 
005001 
110157 
012700 
111062 
112022 
105720 
050027 
001571 
005721 
020127 
001561 

012702 
012701 
012700 
022122 
001005 
077005 
052704 
000241 
000207 



000150G 



002770' 000004 
OOOOOOG 

17 7522 
165000 
OOOOOOC 



0007-'7 
000100 



OOOOOOG 
004000G 
002000 



000004 



10»: 
20 »: 



ADD 

see 

NEC 

HOVB 

RTS 

:REAO EAROn 
REAROM: 

MOV 
MOV 
CLR 
MOVB 
MOV 
MOVB 
MOVB 
TSTB 
BIT 
BNE 
TST 
CMP 
BNE 

MOV 
MOV 
MOV 
CMP 
BNE 
SOB 
BIS 
CLC 
RTS 



50»: 



loot: 



PAGf IH ^ 



R2.UPDATE*104. 
PC 



i2S COMP 

I LOAD CMECKS.UM 

I RETURN RO 



«IHAG£.R2 
Rl 

Rl.a^CRLO 
♦165000. RO 

( RO ) . UPO A T E - 1 WAGE ( R2 ) 

(R0)».(R2)» 

(RO)* 

RO.^777 

20$ 

(RD* 

RI,«PAGES«2 
101 

^DATE.R2 

0UP0ATE*4000.Rl 

♦4 000/2. RO 

(R1)».(R2)» 

100$ 

RO.SO$ 

«eiT2.R4 

PC 



I SET UP ERROR RETjRN 

I ADDRESS OF ROH IMAGF IN MEHQR' 

J PAGE 

J SET ROM PAGE 
, FIRST ADDRESS OF ROM 
iMAKE COPt TO UPDATE 
I MAKE IMAGE COPt 

iROM IS 8X8K MIGM BrTE IS NONExISTAN^ 
I REACHED END OF PAGE? 
iREAD NEXT BrTE 
jNEXT PAGE (INC Bt 2^ 

sCOPt NEXT PAGE 

5 CHECK FOR 8K ROM 



;ANT DIFFERENCE MEANS 8K 

; CHECK 2K 

I MARK AS 2K ROM 

5 GOOD RETURN 

2 



( ^ 



(MOH Bl AsTtH UTII ITv 
INXTIALI/ATXON COK 



MrtC«0 'iUW 10 APR 84 10:59 PAGf 19 



SEQ 0050 



IIM 00S344 
ll^o 005546 
115" 005550 
1159 
1159 

1160 005570 

Ilbl 

llb2 

1165 

1164 

Ut>5 

llct> 



000000 
000000 



000000 000000 177777 

001000 
165000 



INISTK: .WORD 
MONAOR: .WORD 

louJS; APT^COfiriUNICATION*AR^^ ^["'^ARF TEST TIME ORMAT ION. MADF AS LARGE AS. 
2 POSSIBLE 

APTINF: .WORD 0.0, 1. 1. 1.0 



ROMLEN 
ROHADR 

JVER2 .BLKO 

sVERaODB: 

JVER2 .BYTE 



XBUF 
• BLKB 



1000 
165000 

XXNAM*10. 



EAROn Bl A* UTIIIT> MACRO Nl^OO 10 APR 84 10:39 PAGE 20 



INITIALIZATION r'JOE 



SEO OOSl 



1166 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
«L>«L» 
1176 
1177 
1178 
1179 
1180 

iiai 

1182 
1183 
1184 

1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
121S 
1214 
1215 



003404 
005404 
003440 



003462 
003553 
003643 
003713 
003746 
004001 
004001 
004040 
004071 
004120 
004152 
004211 
004246 
004262 

004326 
004326 
004343 
004365 
004423 
004521 

004 562 
004562 
004607 



004640 
004 722 
005006 
005030 





A1 O 




104 


117 


040 


Oil 


123 


040 


oil 


104 


040 


oil 


122 


040 


oil 


110 


040 


oil 


105 


040 


015 


012 


012 


104 


117 


040 


Oil 


103 


Oil 


Oil 


125 


Oil 


Oil 


102 


Oil 


Oil 


123 


Oil 


Oil 


110 


Oil 


Oil 


122 


Oil 


015 


012 


012 


015 


012 


Oil 


015 


012 


Oil 


015 


012 


Oil 


015 


012 


Oil 


015 


012 


012 


111 


116 


106 


Oil 


125 


040 


Oil 


104 


040 


Oil 


105 


040 


oil 


110 


111 



.NLIST 
< MENUS 
IMENU: 



VER2 
VER2 
VER2 



SHMENU: 



SEriENU: 



•HELP: 



BEX 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCIZ 

.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCIZ 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCIZ 



.ASCII 
.ASCII 
;VER2 .ASCII 
;VER2 .ASCII 
;VER2 .ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCIZ 
;VER2$M0RP: 
:VER2 .ASCII 
1VER2 .ASCIZ 

;VER2$SURE: 
;VER2 .ASCII 
;VER2 .ASCII 
JVER2 .ASCIZ 



<C><L><L><L><T><T><T>'riAIN COMMANDS MENU <C»<L><L> 
•00 YOU WANT TO:'<C><L><L> 

<T>'F CREATE SrSTEM CONFIGURATION FILE FROM EAROM 7'"'C»'L»'L> 

<T>'C COPY SYSTEM CONFIGURATION FILE TO tAROM ?'*C»*L»*L» 

<T>U UPDATE SYSTEM MEMORIES OR PERIPHERALS DESCRIPTION ?''C» 

<T>'S UPDATE SYSTEM HARDWARE DESCRIPTION ?-'C><L><L» 

<T>'D DISPLAY/PRINT SYSTEM DESCRIPTION ?' 'C ^'L »*L »*L » 

<T>'R DISPLAY THIS MENU ?'<C><L><L> 

<T>'H HELP ?'<C><L><L> 

<T>'E OR <RETURN> EXIT ?'<C><L> 

<C><L><L><L><L><T><T><T>' UPDATE HARDWARE MENU'<C><L><L> 

'DO YOU WANT TO UPDATE :' <C><L><L > 

<T>'C CPU DESCRIPTION ? <C><L><L> 

<T>'U UNIBUS DESCRIPTION ?'<C><L><L> 

<T>'B BOOT DEVICE DESCRIPTION ?<C><L><L> 

<T>'S BOOT SWITCH SETTINGS ?'<C><L><L»<L> 

<T>'H HELP ?' <C><L><L> 

<T>'R RETURN TO MAIN COMMANDS MENU ?'<C^<1^ 



<C><L><L><L><L><L>' 
<C><L>\ DO YOU WANT T0:\ 
<C><L>\ R .. 

<C><L>\ W , . 

<C><L>\ E .. 



EXIT* <L> 



RETURN TO MAIN MENUV 

WRITE THE ROM FROM THE CLiRRENT DESCRIPTION AND E^IT 
EXIT WITH NO UPDATE\<C><L^ 



<C><L><L><L><L><L><T><T><T >' HELP MENU* <C><L><L> 
'INFORMATION AVAILABLE: <C><L><L> 

<T>'F CREATING A SYSTEM CONFIGURATION FILE FROM EAROM. <C»<L><L» 

<T>*C COPYING A SYSTEM CONFIGURATION FILE TO EAROM. *C><L>*L> 

<T>'U UPDATING SYSTEM MEMORIES OR PERIPHERALS DESCRIPTION. * *C*«L>*L» 

<T>*S UPDATING SYSTEM HARDWARE DESCRIPTION. * <C >*L **L > 

<T>'D DISPLAYING 'PRINTING SYSTEM DESCRIPT ION. ' <C»<L»<L » 

<T>'E EXIT. <C><L><L> 

<T>'HIT <RETURN^ TO RETURN TO MAIN MENU <L><L> 
.ASCII <C><L>'DO YOU WANT TO UPDATE: 

<C><L>' M MEMORY' 

<C><L>' P PERIPHERAL' 

.ASCII <C><L>/ IS THIS WHAT YOU WANT?/ 

<C><L>/ Y YES/ 

<C><i >/ N OR <RETURN> NO/<C><L> 
// 



INITIAL I/AT ION coot 



) 
>) 
> 



nACRO ril200 10 APR 04 10:59 PAGF <>1 



1217 










;OESCRIPTOR 


HEADER STRINGS 






oi ^ 




Ol 2 








r 1 ><l ><l > / 


rpi J np QPR TP T TOM / < r><i »<■ ^^i ^ 




wv 


















01 ^ 


Vic 


1 74 










%PPRnnT 'VMA^TFQ 'V HAl T \ MAI T \ i TloC \ I Tl^ 




015 


012 


174 








cL>/>BATT > UP 


\ MnDF ^nPAMT \ TRAP \ HKi \r\ nrvf \ri nrir 




015 


012 

VAC 


174 














015 


012 


000 






<C>i 


cL > // 




1224 00S467 


015 


012 


012 


UBATIT: 


■ X X 






uBA nFsrRTPTTnM/<r><i ><i ><i % 




000 
















1226 0C5521 


015 


012 


174 




• X X 




^ L. ' ' /wnixovjs / xo 


M JKlTRl J<; \ / 
/\^nixDuo / ' 


1227 005551 


015 


012 


174 




A^PTT 
• X X 




cL>/> CACHE> BIT 




122A 005601 


015 

W A^ 


012 


174 




• X X 




cL>/> > MODE 




1229 00S631 


015 


012 


000 












12S0 C056S4 


015 


012 

V Ab 


012 

V Ab 


BOTTIT: 


A<;rT T 




fL><L><L>/ 


BOOT DEVICES DESCRIPTION/<C><L ><L><L> 


12S1 005676 


000 








• X^ 








1252 005677 


015 


012 

V Ab 


1 74 




ASCII 




cL>/)ENTRY>OEVICE 


>PHYS. > LOG. > CSR >/ 


1255 005745 


015 


012 


174 




.ASCII 


<c>. 


cL>/> NO. > 


> NO. > NO. ) ADDRESS >/ 


1234 006015 


015 


012 


000 




.ASCIZ 


<c>< 


rL>// 




1255 


















1256 006016 


015 


012 


012 


SUITIT: 


.ASCII 


<c>. 


cL><L><L>/ 


SWITCH SETTINGS /-rC><L><L><L> 


1237 006050 


000 








.ASCIZ 


// 






1236 006051 


015 


012 


174 


SUIDES: 


.ASCII 


<c>< 


cL>/>SUI. )DEVICE> LOG. >/ 


1239 006077 


015 


012 


174 




.ASCII 


<c>. 


fL>/) NO. ) 


) NO. >/ 


1240 006125 


015 


012 


000 




.ASCIZ 


«c>. 


cL>// 




1241 



















t ARim Bt 4sltR IM II If I 
INITIALIZATION COOf 



1 '^AK 










V/l J 




AA4L,31 1 
WOc i i 






VUO£ ' c 




1 ^A ^ 






1 ^AtK 




VA J 












UiD 






A1 ^ 




/vv; 7 AX 


Al 
VAD 




AA7A^ 1 
W f W» i 


A1 
V AD 




rtA71 X7 


A1 ^ 
vAD 




W ' 


A1 ^ 


1 


vV < J J J 


A1 ^ 
VA3 


1 ;>^7 

1 £^ ' 




A1 S 
vA3 








1259 


007527 


015 


1260 


007601 


015 


1261 


007654 


015 


1262 


007727 


015 


1263 


010002 


015 


1264 






1265 


010055 


015 



MACRO HK>00 10 APR H4 10: PAGL 2c> 



;I^Pur PRQflPTS 



Ai ::> 
U Ac 


1 0^ 
Ac3 


1 AADA 


AQT T 7 


<C><L>\lf^IBUS CACHE ( DISABLE /ENABLE ) {Oil - 






Al 3 


Ut> A 


l.'DHr' A 


ACC T 7 


<C><L>\18 BIT MODE ( DISABLE /ENABLE ) {0 IJ ^ 






Al O 
vAc 


Ac3 






<C><L>\Cf4lBUS MEMORY TEST ( DISABLE /ENABLE ) tO-11 *^ 






Al ^ 
V Ac 


111 
AAA 


rpi iPA 


AcrT7 


<C><L>\IGNORE BATTERY STATUS 


(DISABLE /ENABLE) 


r A 
I 0 


• 

1 


Al O 
V Ac 


1 PA 


rpi c>l 


ncrT7 

•HOUA^ 


<C><L>\POWER UP MODE 


( D I ALOGUE / TURNKE r /OD T / TRAP ) 


r A 


3 


012 


122 


CPUP2 


.ASCIZ 


<C><L>\REBOOT MODE 


( D I ALOGUE / T URNKE T /OD T / T R AP ) 


[0- 


5 


012 


115 


CPUP3' 


.ASCIZ 


<C><L>\MASTERSHIP GRANT COUNT 


(0/1/2/3/4/5/6/7) 


[0 


7 


Al P 
Ac 


1 1 A 
A Aw 


rPt JPA 




<C><L>\HALT/TRAP OPTION 


(HALT /TRAP) 


r A 
I 0 


1 


Al P 
vAc 


1 1 A 
A AV 




AQPT 7 


<C><L>\HALT ON BREAK 


(DISABLE/ENABLE) 


r A 


• 

1 


Al D 
V Ac 


1 1 A 
A A^ 




AQPT 7 
. H^v. Xa. 


<C><L>\LINE CLOCK CSR 


(ENABLE /DISABLE) 


A 
4 0 


I 


Al P 
V Ac 


\ \A 
A A*» 


roi IP 7 




<C><L>\LINE CLOCK INTERRUPT 


(DISABLE /ENABLE) 


r A 


A 


012 


114 


CPUP8 


.ASCIZ 


<C><L>\LINE CLOCK SOURCE 


( BE VEN T /50HZ /60HZ / 800M/ ) 


(0 


5 


012 


115 


CPUP9 


.ASCIZ 


<C><L>\MAIN MEMORY TEST 


(ENABLE /DISABLE) 


:o 


1 


012 


104 


BOTPO 


.ASCIZ 


<C><L>\DEVICE NUMBER TO CHANGE 


(I TO 9) 






012 


124 


BOTPl 


► .ASCIZ 


<C><L>\TU0 LETTER DEVICE MNEMONIC 






012 


120 


B0TP2 


.ASCIZ 


<C><L>\PHYSICAL UNIT NUMBER 


(0 TO 577) «\ 






012 


114 


B0TP3 


.ASCIZ 


<C><L>\L0GICAL UNIT NUMBER 


(0 TO 577) 






012 


103 


B0TP4 


.ASCIZ 


<C><L>\CSR ADDRESS 


(0 TO 17^-'7M -\ 






012 


123 


SUIPO: .ASCIZ 


<C><L>\5WITCH SETTING TO CHANGE (I TO 6) -n 







I s 

EAAOn BlAsTLR UflLITf MACRO H1200 10 APR -84 10:59 PAGE 25 

%Q 0054 

INITIALIZATION CODE 



l?b7 










{HELP MESSAGE STRINGS 




I2t9 010130 


A4 C 

015 


012 


AAA 

o#o 


«NSG1: 


.ASCII 


<c><L>* r* 




1^70 


010156 


A1 C 

015 


A1 ^ 

012 


A1 1 

Oil 




•ASCII 


<C><L>-'T>'USE TO 




1271 


010151 


A1 C 

015 


012 


A1 O 
Olc 




.ASCII 


<C><L><L><T>' 




1272 


010242 


OlD 


Olc 






.ASCII 


<C><L><T>' 




1273 


010552 


A1 ^ 

OlD 


A1 O 

Olc 


A1 ^ 
Ulc 




.ASCIZ 


<C><L><L><T>' 


FTI F NAMF FHRMAT • ftF W TTF * P Tl PKlAHf^ ' > «l > 


1274 


010405 


A4 C 

015 


A1 

012 


AAA 
O^O 


IMSG2: 


.ASCII 


<C><L>' C 




1275 


010411 


A« K 

015 


A1 O 

012 


A1 1 
Ol 1 




.ASCII 


<C><L><T>*USE TO 




1276 


010424 


A1 C 

015 


A1 O 

012 


A1 O 

012 




.ASCII 


<C><L><L>< T> ' 






010520 


A1 C 

OlD 


A1 9 

012 


A1 1 
Oil 




ASCII 


<C><L><T>* 




1278 


010603 


OlD 




ni D 

Uic 




.ASCIZ 


<C><L ><L><T> * 


FTIF MAMF FftRMAT « HF W TPF • F Tl FNAMF ' «r » 


1279 


010654 


ni ^ 






fMSG5: 


.ASCII 


<C><L>* U' 




1290 


010662 


A1 ^ 
UID 


ni D 


ni 1 

U i 1 




.ASCII 


<C><L><T>'USE TO 




1201 


010675 


A1 
OlD 




U Ic 




.ASCII 


<C><L><L><T>* 


Ann MFMOP y/pfrtphfrai nF<;rRTPTnD Tn FApnM * 


1202 


010760 


OlD 


m ^ 






.ASCII 


<C><L><T>' 


nFL FTF MFMnRY/PFRTPHFRAL nF^^rPIPTnP FRHM FAROM 


l4c03 


All 7 


UID 




ftt 1 
ui 1 




.ASCII 


<C><L><T>' 


MODIFY MEMORY /PER TPHFRAL DESCRIPTOR ON FAROM 


1204 


A 4 f f 

011154 




nt ^ 
uic 


fti 1 




.ASCII 


<C><L><T>' 


DI<^Pl AY MEMORY /PER IPHFRAL DE'^>CRIP TOR^ ON FAROM 


1205 


011223 






fti p 

vie 




.ASCIZ 


<C><L><L><T>*FOR 


DETAILED INFORMATION REFER TO UTILITY USER5 GUIDE <C><t > 

wt 1 ^ X^tw Xl^* lO IXW'^ Ot'to >W WlXtXI > O J VJw X wt • ^ v 1 


1206 


011320 




V/iC 


OAft 


<MSG4: 


.ASCII 


<C><L>' S' 




IcO A 


A 1 1 V 9^ 

Oil 5c6 


UID 


A1 3 


fti 1 




ACPT T 
. HdLII 






1200 


All 1 

011541 


015 


012 


012 




.ASCII 


<C><L><L><T>' C 


MODIFY CPU DESCRIPTOR ON EAROM.' 


lc09 


A4 ^ A % ^ 

01 1412 


015 


012 


Oil 




.ASCII 


<C><L><T>U 


- MODIFY UNIBUS DESCRIPTOR ON EAROM. 




All AA.^ 

011465 






fti 1 




.ASCII 


<C><L><T > * B 


MODIFY BOOT DEVICES ON EAROM ' 






UID 


01 D 
Vic 


fti 1 




.ASCII 


<C><L><T>' S 


MODIFY ROOT <;UTTCH MFAMINH^^ 01^ FAROM ' 

1 IWWX* 1 www I ^MX 1 > lt~I^Xl^Uw W'^ tr^rlW' 1 • 


1292 


011611 


UID 


Uic 


fti D 
Ulc 




.ASCIZ 


<C><L><L><T>'F0R 


DETAILED INFORMATION REFER TO UTILITY USERS GUIDE. <C><L> 


1295 


011706 


UID 


vie 


ft^ft 


JMSG5: 


.ASCII 


<C><L>' 0' 




1294 


011714 


015 


012 


Oil 




.ASCII 


<C><L><T>'USE TO 




1295 
<C><L> 


011727 


015 


012 


012 




.ASCIZ 


<C><L ><L X T > * 


*DISPLAr THE SYSTEM DESCRIPTION ON THE CONSOLE/L INEPR INTER . 


1296 


012055 


015 


012 


040 


tMSG6: 


.ASCII 


<C><L>' E' 




1297 


012045 


015 


012 


oil 




.ASCII 


<C><L><T>'USE TO 




1296 


012056 


015 


012 


oil 




.ASCII 


<C><L><T>' SAVE NEW SELECTIONS ON EARQM AND RETL»RN TO XXQP* MONITOR. 


1299 


012157 


015 


012 


oil 




.ASCIZ 


<C><L><T>' RETURN TO XXDP* MONITOR WITHOUT SAVING NEW SELECTIONS. <C><L* 


1500 












• EVEN 







1501 



(AROM Bl mil IT. HACRU mrOO 10 APR 84 10:39 PAGE t>4 

INITIALIZATION COOf 



SCO OOSS 



1505 










;OTMER 


ASCII STRINGS 


1504 


012260 
012555 


015 
015 


012 


115 


iMELLO 


.ASCIZ 


<C><L>'K0J11-B EAROM MAINTENANCE UTILlTf V1.0'<C><1> 


1505 


012 


104 


JTYASK, 


• .ASCIZ 


<C><L>'00 YOU WANT A HARDCOPY LISTING ( N/f CR-r ) ? 


1506 


012414 


015 


012 


116 


ILLCOH, 


• .ASCII 


<C><L>/N0T A VALID CHOICE. / 


1507 


012442 


015 


012 


124 


RETMSG 


.ASCIZ 


<C><L>/TYPE <PETURN> TO RETURN TO MENU / 


1500 


012505 


015 


012 


111 


BADFIL 


.ASCIZ 


<C><L>/ILLEGAL FILE DESCRIPTION/ 


1509 


012540 


015 


012 


012 


GETFIL 


' .ASCIZ 


<C><L><L><L>/ENTER DEVICE AND FILE NAME DDN:XXXXXX OR <RfcTijRN> 


1510 


012642 


015 


012 


105 


TOOLNG 


' .ASCIZ 


<C><L>/C0MMAN0 TOO LONG, PLEASE REENTER: / 


1511 


012707 


015 


012 


105 


PROMPT 


: .ASCIZ 


<C><L>/ENTER SINGIE CHARACTER COMMAND FOLLOWED Bt <RETURN>: / 


151^ 


012777 


015 


012 


105 


NOROM: 


.ASCIZ 


<C><L>/EAR0M NOT PRESENT IN SrSTEM/<C><L> 


1515 


015057 


015 


012 


111 


ERRIN: 


.ASCIZ 


<c><l>/incorrect input/ 


1514 


015061 


015 


012 


106 


NOTTET 


.ASCIZ 


<C><L>/FUNCTION NOT YET IMPLEMENTED/ 


1515 


015120 


015 


012 


007 


RESTOR 


: .ASCIZ 


<C><L>«BELL>/WRITE FAILURE. RESTORING ORIGINAL ROM/ 


1516 
1517 


015171 


174 


040 




LBL5: 


.ASCII 


/) / 


015175 


040 


040 


000 


BL4: 


.ASCIZ 


/ / 


1516 


015176 


174 






VCRLF : 


.ASCII 


/)/ 


1519 


015177 


015 


012 


000 


CRLF: 


.ASCIZ 


<C><L>// 


1520 


015202 


015 


012 


01c 


READ: 


.ASCIZ 


<C><L><L>/REA0 / 


1521 


015215 


015 


012 


012 


WRITE: 


.ASCIZ 


<C>-'L><L>/WRITE / 


1522 




000001 






.END 







EAROM BlA'.TFH UMLIT> MACRO Ml^OO 10 APR 84 10:5^ PAGE £?4 1 
SIHBOI TABLE 



ALL 


I \'770 


CPUP7 


007255R 


ITYP6 


002354R 


APT INF 


003370R 


CPUP8 


00 7333R 


L 


000012 


ARGS • 


000000 


CPUP9 


007431R 


LBL5 


013171R 


BAOTIL 


012505R 


CPUTIT 


0050 7 7R 


LEAVE 


0031 70R 


BCSR ' 


177520 


CRLF 


013177R 


MAINM 


0004 lOR 


BEGIN 


OOOOOOR 


CTC 


000005 


MENU 


000266R 


BELL ' 


000007 


DDISP » 


177570 


MH.CHR 


000512R 


BITO * 


000001 


DECTAB 


001760R 


MONADR 


003346R 


BITl • 


000002 


DEL 


000177 


MSTAB 


000700R 


BITIO • 


002000 


DELAY 


003174R 


MS.B 


000666R 


BIT12 • 


010000 


DESCRP 


001374R 


MS.C 


000666R 


BIT15 • 


IOC 000 


DLT 


177760 


MS.CHR 


000464R 


BIT2 - 


000004 


DSUR ' 


177570 


MS.H 


000366R 


BITS - 


000010 


EIGHTK 


003072R 


MS.S 


000666R 


BIT4 • 


000020 


EMENU 


000536R 


MS.U 


000666R 


BITS • 


000040 


ERRIN 


013037R 


M.CHRS 


0004 32R 


BIT6 • 


000100 


ERROR 


000346R 


M.D 


000560R 


BIT7 • 


000200 


ERROR 1 


000342R 


M.E 


000646R 


blochk 


0052 lOR 


ETR 


177764 


M.H 


000402R 


BLKIO • 


000200 


EXIT 


002762R 


M.S 


000360R 


BL4 


013173R 


GETCOM 


0024 50R 


NOPE 


002770R 


BOT 


177754 


GETFIL 


012540R 


NOROM 


012777R 


BCTDES 


0056 7 7R 


HARDM 


000440R 


NOTYET 


013061R 


BCTDT 


001132R 


HELPM 


0004 74 R 


OCT IN 


002374P 


BOTPO 


007527R 


HMSGl 


000600R 


OCTOUT 


002016 < 


BOTPl 


007601R 


HMSG2 


000604R 


OTYPO 


001570R 


BOTP? 


007654R 


Hf1SG3 


0006 lOR 


OTYPIO 


002100R 


B0TP3 


007727R 


HMSG4 


0006 14R 


0TYP2 


001646R 


B0TP4 


010002R 


Hf1SG5 


000620R 


0TYP4 


001772R 


BOTTIT 


0056 34R 


HHSG6 


000624R 


0TYP6 


002002R 


Bt TBLK - 


001000 


ILLCOM 


012414R 


OUTBUF • 


177566 


C 


000015 


IMAGE « 


GX 


OUTMAP 


0007 12R 


CLS ■ 


177762 


INBUF » 


177562 


OUTSTA- 


177564 


CPUOES 


005131R 


INI 


177774 


OUTS 


000356R 


PDi tr\ T 
Lr'UuT 


000742R 


INISTK 


003344R 


PAGES ■ 


000040 


CPUPO 


006353R 


INMAP 


000724R 


PAINT 


0002 70R 


CPUPI 


00645 IR 


INSTA - 


177560 


PCRLO - 


177522 


CPtjP2 


00654 7R 


INSTR 


003350R 


PROMPT 


012707R 


CPUP3 


00664 5R 


ITrPO 


002144R 


PRTCSR* 


000000 


CPUP4 


006 74 3R 


ITYPIO 


002352R 


READ 


013202R 


CPJP5 


00704 IR 


ITYP2 


0022 12R 


REAROM 


003240R 


CPJP6 


007137R 


ITYP4 


002314R 


REPLOT 


000356R 



. ABS. 000000 000 
013225 001 
ERRORS DETECTED: 0 



virtual memory used: 9421 words c 37 pages) 
Dynamic memory: 20060 words c 77 pages) 

El APSED TIME: 00:00:24 
B4.B4'' SP-BLMAC.DDBDEF,B4.END 



RESTOR 


013120R 


XER 


177777 


RETCOM 


002444R 


XFLCNT- 


177722 


RETMSG 


012442R 


XLSTBK- 


177750 


ROMADR • 


165000 


XMFID ■ 


000026 


ROMLEN- 


001000 


XNB 


000022 


RWE 


000554R 


XC^F - 


000023 


SLASH 


002654R 


XON 


000021 


SRH 


177766 


XRD 


000012 


SVC 


177772 


XSV 


177772 


SWIDES 


006051R 


XSVBLK- 


177730 


SWIDT 


001212R 


XSVCNT- 


177726 


SWIPO 


010055R 


XSVDAT- 


177740 


SWITIT 


0060 16R 


XSVEXT- 


177736 


T 


000011 


XSVMAP- 


177724 


TOOLNG 


012642R 


XSVNAM* 


177732 


TTY 


002660R 


XSVUPT- 


177752 


TYPMSG 


002634R 


XSVXX - 


177742 


U 


000174 


XWC 


000002 


U6A0ES 


005521R 


XWCTR ■ 


177716 


UBADT 


001072R 


XWILD • 


177720 


U6AP0 


006130R 


XWT 


000014 


UBAPl 


0062 IIR 


XXNAM - 


000024 


U6AP2 


0062 72R 


XIST • 


177754 


U8ATIT 


00546 7R 


X1ST9K- 


177744 


UPDATE- 


«««««« GX 


YN 


0005 52R 


UPDRAM 


001252R 


TORN 


0005 16R 


VCRLF 


013176R 


YUP 


002762R 


WHICH 


001372R 


ZER 


177756 


WRITE 


013213R 


SEMENU 


004326R 


WRTROM 


002776R 


SHELLO 


012260R 


XBA 


000004 


SHELP 


004562R 


XBC 


000016 


iHMENU 


00400 IR 


XBKLGT« 


177746 


IMENU 


003404R 


XBT • 


177754 


IMSGl 


010130R 


XBUF • 


177714 


iMSG2 


010403R 


XCMK 


0026 74R 


tMSG3 


010654R 


XCM 


000000 


$MSG4 


011320R 


XCO 


000010 


$MSG5 


011706R 


XDN 


177776 


iMSG6 


012035R 


XDR 


000020 


$SWR - 


160000 


XDT 


000006 


$TYASK 


012333R 



.M IbT 

MACRO PACKAGE REVISION HISTORY 

REVISION DATE CHANGE 

1.0 25 'HAY- 78 INITIAL ISSUE 

1. 1 51 -HAY 76 DELETE SBKREAD AND SNXTBLK MACRO DEFINITIONS 

1.2 6'JUN 76 ADDED $CHK SUM MACRO 

1,5 6 JUL 76 DELETE .PTRRO. .BMOVE. .SCHAIN. AND .ABORT MACRO DEFINITIONS 

ADD .SETERR AND .ERROR MACRO DEFINITIONS 

2.0 6 -JUL 76 FIELD TEST VERSION 

C.l 12- JUL -76 ADD SABORT DEFINITION; REMOVE iNXTBLK DEFINITION 

2.2 22-AUG-76 ADD MACFO DEFINITIONS FOR ROUTINES MOVED FROM DRIVERS TO DRVCOM 

5.0 20- JUL -60 MAKE CHANGES MARKED BY ;MAC001 

26 -OCT 60 REMOVED IREMAIN MACRO ;MAC002 

51 -OCT 60 ADDED .FRCTYP AND .CHKCC ;RW8001 



CHANGED .ERROR TO USE RO 
removed old EMT macros for blast program jrwy 



:RUBOOI 



fake the needed EMT calls 

this macro recovers from errors during I/O 

this *s supposed to pass errors my way using the calls already e\' sting 
*n the drivers 
.macro .frctyp arg 

'^ov arg.rO 
sec 

.endm 

.macro .up^nam 

jsr pc.upknam 

.endm 

.macro .cmpnam 

jsr PC cmpnam 

. endm 



M5 

J TNf » Oi I OWING MACROb btNtRATE TRAP CAl LS 



.MACRO ITyPRAO ARGl 
.NARu NARGS 

.1^ NE .NARGS 

.NTtPE NTTPE.ARGl 

.1^ NE.NTtPE 

HOV ARGl.RO 

.ENOC 
.ENOC 

TRAP I 
.ENOM IfTPRAO 



.MACRO IBCOCV ARGl 
.NARG NARGS 

.If NE. NARGS 

.NTYPfc NTYPE.ARGl 

.1^ NE.NTYPE 

MOV ARGl.RO 

.ENOC 
.ENOC 

TRAP 2 
.ENOM IBCOCV 



•MACRO lOATUPK ARGl 
.NARG NARGS 

.1^ NE. NARGS 

.NTYPE NTYPE.ARGl 

.1^ NE.NTYPE 

.ENOC '''"•''^ 
.ENOC 

TRAP 3 
.ENOM lOATUPK 

.MACRO IByTFIL 

TRAP 4 
ENOM IBYTriL 

.MACRO ICLRBMP 

TRAP 5 
.ENOM ICLRBMP 

.MACRO IBKREAO 

TRAP 6 
.ENOM IBKREAO 

.MACRO IROOAT 

TRAP 7 
.ENOM IRODAT 



SEQ COM 



. MACRO 

.MACRO 

.FNOM 

. MACRO 

.ENOM 

. MACRO 

.ENOM 

.MACRO 

.ENOM 

.MACRO 

,ENDM 

.MACRO 

.ENOM 

.MACRO 

.ENOM 



lURTDAr 

TRAP 

»WRTDAT 

iBlkurt 

TRAP 
IBLKWR^ 



10 



II 



IWRTLC 

TRAP 12 
IWRTLC 

ICLRBIIF 

TRAP 15 
ICLRBir 

IPAKNAM 

TRAP 14 
IPAKNAM 

ITtPNAM 

TRAP 15 
IT YPN AM 

IMBUTAO 
TRAP 16 
IMBUf AO 

ICHKSUM 

TRAP 17 
ICHKSUM 



.MACRO 
.ENOM 



IBMOVE 
TRAP 
IBMOVE 



20 
ARG 



.MACRO I ABORT 
.IF NB ARG 

. TrPMSG 

.ENOC 

TRAP 21 
.ENDH I ABORT 

.MACRO lOTOEL 

TRAP 22 
.ENOM lOTOEL 



'AQ 0059 



.MACRO 

.ENOM 

.MACBJ 



IRiVI 

tRAP J5 
•BOOT 

ICLRHAP 

TRAP .74 
ICtRMAP 

TRAP ^5 
tALOCBH 

•ALLOC 

TRAP J» 
•ALLOC 

•REAOMP 

TRAP J 7 
•REAQMP 



.MACRO 

.ENOM 

.MACRO 

.ENOM 

.MACRO 

.ENOM 

.MACRO 

.ENQH 

.MACRO 

.ENOM 

.MACRO 

.ENOM 

.MACRO 

.ENOM 



♦CLSMAP 
TRAP SO 
•CLSMAP 

•URTMAP 
VRAP 31 
•URTMAP 

•STUFDS 
TRAP S5 

•STjros 

•CLOSE 

TRAP 54 
•CLOSE 

•OAlSBk 
TRAP S5 
•OALSBK 

•DALlNK 
TRAP S6 
•OALLNK 

•OALCTG 
TRAP 57 
•OALCTG 



.MACRO •SEMAP'S 

TRAP 40 
.FNOM •STMAPS 



jC ' » 












2 1 HR/t A 


TO nOR MTHyTTOQ RltfTf-R 








TO URTTE COUNTER 








TO FTlE MODE INDICATOR 








TO f ILE COUNT 


XSVHAP 








)( Ci//*lu T 
^ jVt»^ ' 








^ 9 W 0L. 








XSVNAM 






\.^D Block 'pointers 


IfCW^ \ T 


• A ^ 

■ ■•4-. 






^ J ' 


« AO 

■•V 


• 




^ > V ^ A 


a ^ 


• 






• ^4 
J"* 


• 






■ 5P 
















. 






A A □ I 


• PA 




TO FIRST POINTER 




• *PA 


i INDEX 


TO BOOT ROUTINE 


ROT 


■ 'PA 


s INDEX 


TO BOOT ROUTINE 




■ PP 




TO 7ER0 ROUTIV^ 

' \J A,f^w " W 1 Xt^w 




> PO 


• INDEX 


TO DELETE ROUTINE 






. INDEX 


TO CLOSE ROUTINE 


F TR 


> lA 


• INDEX 


TO ENTER ROUTINE 


SRh 


• - IP 


s INDEX 


TO LOKUP routine 




^ 10 


s INDEX 


TO ALLOCATE ROUTINE 




• -6 


: INDEX 


TO SERVICE ROUTINE (DRIVER) 


** 3 • 


■ 6 


; INDEX 


TO SERVICE ROUTINE (DRIVER) 




» .4 


s INDEX 


TO INIT ROUTINE 


xDN 


C 


;ORIVE 


NUMBER INDEX 


XFR 


> . I 
k 


;RESULT STATUS 


xCm 


• 0 


J INDEX 


TO COMMAND REGISTER 


xuC 


■ p 

c 


s INDEX 


TO WORD COUNT 


xBA 


■ A 


s INDEX 


TO BUS ADDRESS 


xDT 




2 INDEX 


TO BLOCK NUMBER 


xCO 


-10 


s INDEX 


TO COMMAND 


XRO 


•12 


2 INDEX 


TO READ COMMAND 


XWT 


■ 14 


s INDEX 


TO WRITE COMMAND 


xBC 


>16 


; INDEX 


TO REQUESTED BLOCK COUNT 


XDP 


"20 


; INDEX 


TO 1ST DIR BLOCK POINTER 


XNB 


•22 


: INDEX 


TO LAST BLOCK 0 ALLOCATED 


XXNAH 


•24 


: INDEX 


TO ASCII NAME IN DDB 






26 






a 


51?. 





SEQ 0041 

iMJOOOl 
iMJDOOl 
iMJDOOl 



sMjOOOl 
jMJDOOl 



sMJOOOl 
tMJOOOl 
iMJOOOl 



I 



pur0OM •ouates 



pao«s 

b'tO 
b'tl 
b:t2 
b'tS 
bt4 
bits 
b't6 

b;t7 

b'tIO 

b'tlZ 

btl5 

prtc»r 

'f>«ta 

'•^buf 

Outsta 

outbu^ 

.rat 



1 


• 11 


BFLL 


• 07 


L 


■ 12 


c 


• 15 


u 


• 174 


CTC 


' 5 


tan 


- 21 


xOff 


• 25 


d*l 


- 177 


BCSR 


• 177520 


PCRLo 


■ 177522 


BLKIO 


- 000200 


OSUR 


• 177570 


OOISP 


- 177570 


ISUR 


« 160000 



32. 
1 

a 

4 

10 

20 

40 

100 

200 

2000 

10000 

100000 

0 

177560 
:nata»2 
177564 
outsta»2 



UQ 004? 



;tab character 
tbell character 
;lina feed character 
scarriage return character 
I vertical daah character 
{Control c 
t output on 
lOutput off 
t rubout 

iBoot/DiaQnost *tc Status register 
iPaoe Control register 
sUTD blocit >s memory /per I pheral 
{HardMare switch register 
sHardMare display reg'ster 
;^lags for APT control 

;number of pages in EFPOH 



{??? dummy printer address 



s 



